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UN GITAN DE SON GITAN 


PREFACE 


The purpose of this monograph is to summarize and present the 
computer programs and data underlying various analyses of the characteristics 
ot rate schedules and of the revenue effects and incidence of tax changes 
implied by the Commission's recommendations. The results of these analyses 
are presented in Chapters 11, 35, 36 and 37 of the Commission's Report as 
well as in various appendices to Volumes 3, 4 and 6 of the Report and in 


three companion studies. 


In the course of analyzing the Commission's recommendations and 
determining the viability oft different rate schedules, a large number of 
rate schedules have been analyzed under a number of sets of assumptions. 

It is not possible within time and space limitations to reproduce or even 
summarize the detailed results of these analyses. However, by using the 
computer programs provided in this monograph, any interested individual can 
replicate any of our analyses or test the effect of different rate schedules 


and assumptions. 


The development of the income ‘tax analyzer within the space of seven 
months has only been possible as a result of the help furnisned by a 
considerable number of people. The computer programs have been run and 
tested both on the IBM 7094 Mark II of the Institute or Computer Science of 
the University ot Toronto and on the Burroughs B5500 of KCS Limited. I am 
greatly indebted to D. F. Forster, ( ©, Gottlieb and L.E.S. Green for C 
arranging the priority status which made completion of this study possible, 
and to B. Biro, A. Creamer, Y. Kumagai, and other members of the staffs of 
both installations for their co-operation and patience in dealing with the 


dislocations caused by this priority. 


For assistance in writing and debugging programs I am indebted to 
L. Cseh, J. Galipeau, P. Heichelheim, F. M. Hill, W. Hirschmann, J. Lions, 
J. C. Paradi, L. Richmond, and L. Sims. I should particularly like to 
single out the contributions made by Les Cseh and Ken Hill, for, without 
their willingness to give up sleep, family, and peace of mind, this study 


could not have been finished as quickly as it was. 


The substance of the programs has been extensively modified and 
enlarged in the course of applying them to the data underlying the analyses 
presented in the Report, and has benefited greatly from the comments and 
suggestions of G. R. Conway, D. G. Hartle, and the Chairman of the 
Commission. The data were made available through the co-operation of 
J. R. Brown of the Department of Finance and S. Tench of the Department of 


National Revenue. 


For their willingness to release me from other commitments to allow 
this project to be undertaken, I am indebted to R. M. Cyert of the Carnegie 
Institute of Technology's Graduate School of Industrial Administration and 
to F. M. Hammer of Bankers Trust Company, as well as to K. J. Cohen and 
N. Seeber, who took over my teaching responsibilities at Carnegie Tech at 


considerable inconvenience to themselves. 


It is impossible for me adequately to acknowledge the support and 
encouragement afforded by my wife. Her forbearance has far exceeded any 


definition of uxorial duty. 


Toronto 


October 1966. 


Wis 


ADDITIONAL NOTE 


On December 19, 1966, the Honourable Mitchell Sharp, Minister of 
Finance, introduced a Supplementary Budget which announced increases in 


the manufacturer's sales tax and in the old age security income tax. 


Because many chapters of the Commission's Report had been printed 
prior to December 19, 1966, it was not possible to incorporate the effects 
of the proposed tax changes in the analyses presented in the Report. A 
discussion of the effects of these changes on estimates of the revenue 
yield and incidence of the tax changes resulting from the Commission's 
recommendations has consequently been added to this monograph in each 
relevant section of Chapter 43. In addition, the detailed incidence 
estimates presented in three companion studies have been updated to include 
the effect of the changes in tax rates proposed in the Supplementary Budget. 
Updated versions of the examples presented in Appendix I to Volume 3 and 
Appendix M to Volume 4 of the Report have been included in this study as 


Appendices J and K. 


For their assistance and co-operation in processing these further 
analyses, I am indebted to L. Cseh and B. Biro. For discovery of several 
errors, I am indebted to J. F. Helliwell. It is in addition a pleasure to 
acknowledge the unusually competent and helpful editorial assistance 


rendered by Mrs. A. Lamb of the Commission's staff. 
Needless to say, I am alone responsible for errors that remain. 


Toronto A Jeb. 


February 1967. 
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CHAPTER 1 
INTRODUCTION 


An electronic computer is an exacting machine. It has to be instructed 
as to the minutest detail of a job which it is to do. Unless prepackaged 
programs are available, use of a computer on any large project is generally 
expensive, arduous, frustrating, and time-consuming. All of these attributes 
were fully exhibited through the development of the income tax analyzer 


described in this study. 


An electronic computer is, however, also an exact machine. It can 
do hundreds of calculations thousands of times, and neither get bored nor 
make an error. It can, moreover, do these calculations within a matter of 
minutes. As a result, large-scale analyses which would not be feasible 
without the computer can not only be performed but can be repeated any 


nunber of times. 


The fact that a large-scale analytic task can be performed accurately 
makes possible a substantially more rigorous test of the revenue-producing 
characteristics of a tax system than would otherwise be possible, and 
consequently reduces the risk ofr error in revenue forecasts. a7 The fact 
that the analysis, once programmed, can easily be repeated makes possible 
the testing of numerous combinations of assumptions and rate schedules. 

The feasibility of repeated testing means that it is not necessary to be 
substantially over-conservative in specifying a rate schedule so as to be 
sure of producing enough revenue with the first rate schedule to be tested. 


It also means that it is possible to examine the implications of a rate 


schedule for various aspects of the incidence of the tax system and then to 
redesign the rate schedule taking these implications into account. Without 
the availability of a programmed computer the time taken by recalculation is 


too great to permit much experimentation. 


The effect of the experimental capacity added by the development of 
computer programs was quite graphically illustrated by the effect of the 
development of the income tax analysis programs upon the rate schedule which 
the Commission was able to recommend. Before the computer programs were 
written, a feasible rate schedule had been specified on the basis of 
laborious hand calculations. As a result of subsequent experimentation with 
numerous rate schedules using the income tax analyzer, it was possible to 
obtain a significantly lower rate schedule that would raise sufficient 
revenue and which would come closer to meeting the Commission's objectives 
specified in Chapter 11 of the Report. The improvement in the rate schedule 
was due in part to the opportunity for experimentation and in part to the. 
improved accuracy resulting from the more detailed specification of the 
effects of reforms in the tax base which was made possible by the use of 


the computer. 


The primary purpose of this monograph is twofold: (1) to summarize 
and make available the computer programs making up the income tax analyzer, 
and (2) to describe the data and detailed analyses underlying the revenue 
projections and incidence evaluations presented in the Commission's Report. 
These descriptive tasks are performed in the two succeeding chapters of 
this monograph. The programs themselves are presented in Appendix A to 
this study, while the underlying data and assumptions are summarized in 


Appendices B, C, and F. The variables estimated for each tax return are 


described in Appendix D. Parameters controlling the use of the income tax 


analyzer are listed in Appendix E. 


In addition to containing descriptions of the programs, data, and 


detailed analyses underlying the examples and estimates presented in the 


Report, this monograph includes six supplementary sets of data: 


ale 


Estimates of the long-term elasticity of tax revenues to increases 
in gross national product under the current and proposed tax systems 


are presented in section 3.3. 


Revised estimates of the change in total 1964 tax revenues which 
would have resulted had the Commission's recommendations been fully 
in effect in that year are provided in section 4.2. The revisions 
take account both of the increase in old age security tax proposed 
by the Supplementary Budget Speech of December 1966 and of a more 
accurate specification of certain assumptions regarding the distri- 
bution over individuals of components of accrued income added to 


the tax base under the Commission's proposals. 


Correspondingly revised estimates of the incidence by income class 
of these tax changes upon individual taxpayers are presented in 
section 3.4; revised estimates of the prorated effects of each 
direct tax reform for individuals classified by income are shown 
in Appendix H to this study. Updated and extended estimates of 
the incidence of sales tax changes are presented in Appendix I to 


this study. 


Versions of Appendix I to Volume 3 of the Report and Appendix M to 


Volume 4, revised to show the effect of the tax increases announced 


in the December 1966 Supplementary Budget, are presented in 


Appendices J and K to this study. 


Estimates of the numbers of families with multiple income recipients 
and of the joint distributions of these families by incomes of each 
recipient are presented in Appendix G to this study. These esti- 


mates underlie analyses of the effect of the recommended aggregation 


of income recipients in each family unit. 


Estimates of the components of the aggregate 1964 personal income 
tax base under the present and proposed tax systems for individuals 
classified by income are presented in Appendix L to this study. 

This appendix also contains estimates of total corporation income 
taxes, gift and estate taxes, and personal income taxes attributable 


to individuals in each income class under both tax systems. 


REFERENCE 


The first use of a large scale computer simulation to analyze the 
effects of changes in tax law was made by J. A. Pechman of the 
Brookings Institution. See J. A. Pechman, "Individual Income Tax 
Provisions of the Revenue Act of 1964", Journal of Finance, May 1965. 


CHAPTER 2 
DESCRIPTION OF PROGRAMS 


To as great an extent as possible, the computer programs constituting 
the General Income Tax Analyzer (hereinafter referred to as "GITAN") have 
been written to be flexible and to be easily adaptable to different uses. 

The programs have been designed as a hierarchy of detachable subprograms, 
linked to each other and to a controlling program by variables passed from 
one subprogram to another either through argument lists or through being 
defined globally in COMMON lists. As a result, flexibility is achieved in 
three different senses: (1) any desired combination of analytic jobs which 
can be done by the programs can be effected merely by putting the appropriate 
subprograms together, (2) the tasks performed by a given subprogram can 

in many cases be changed merely by changing the variables passed to that 
subprogram, (3) any part of a program may be changed merely by substituting 


@ new subprogram for an existing one. 


The programs have also been written with an eye to minimizing the 
costs associated with using them on different machines and under different 
operating systems. The programs have been written in ASA Standard FORTRAN IV 
so as not to be limited by the use of additional features available in 
particular manufacturers! implementations of FORTRAN. In addition, system 
variables have to a considerable extent been parameterized. Most of the 
programs have been executed both on an IBM 7094 and on a Burroughs B5500, 


and have been translated into ALGOL in being run on the latter machine. Y 


Since complete listings of the programs are provided in Appendix A, 


this chapter will include only cursory description in the form of a reader's 


guide to the program listings and general comments on their use. Each sub- 
routine is discussed in the order in which it appears in Appendix A. The 
use of these programs to produce the results presented in the Commission's 


Report is described in the next chapter. 


The programs are discussed in four groups in this chapter: (1) rate 
schedule characteristic descriptors, (2) example generators, (43) programs 
for the estimation of the effect of the Commission's recommendations on 
individual tax returns, and (4) programs to provide the different summary 
tabulations for returns analyzed by the third set of programs. The first 
two groups are based only on rate schedule data, and are the source of 
tabulations presented in Volumes 3 and 4 of the Report. The last two groups 
depend upon the availability of a sample of tax returns, with each tax 
return being "blown up" by the appropriate amount to make aggregates obtained 
from the sample an estimate of the corresponding aggregate for all tax 
returns filed in a given year. Together with a sample of 411,510 tax 
returns for 1964, supplied to the Commission without taxpayer identification 
by the Department of National Revenue, the last two groups of programs are 


the source of results presented in Volume 6 of the Report. 2/ 


oak Rate Schedule Characteristic Descriptors 


Programs in this group fall into two classes: (1) functions to 
compute personal income tax liabilities under the current tax system and 
under the system proposed by the Commission, and (2) subroutines to generate 
tables analyzing ditferent aspects of the relative tax treatment of different 
individuals under a given rate schedule. Subroutines in the latter class 


have as output a number of tables presented in Chapter 11 of the Report. 


The use of these programs is straightforward, as can be seen from 
the listing presented in Figure 1 of a program calling for the execution of 
the subroutines described in this section and of the data input (in the 
form of the proposed rate schedules) required to generate the tables in 
Chapter 11 of the Report. As Figure 1 indicates, it is not necessary to 
refer to the tax calculation functions directly in producing these tables; 


the functions are used at the appropriate places within other subroutines. 


The card following the $DATA card in Figure 1 contains either zero 
or unity to define the tax rates of the current tax system as described 
below (see "CURTAX"). The rate schedule data following this card are in the 
format required for it to be read in by subroutine INPUT; it is described 
with the description of that subroutine. The rate schedule is defined by 
the following parameters: an array of incomes constituting the bottom of 
each income bracket; a 2-dimensional array ot marginal rates in each bracket 
and an array of family tax credits and zero-rate brackets. The rate array 
is 2-dimensional to allow for multiple schedules, the appropriate schedule 
being defined by the value of an index (called "MARTAL” in the argument list 
of TAXCOM because of the way in which schedules are defined under the 
Commission's proposals). The upper limits of zero-rate income brackets are 
defined directly rather than as bracket bottoms in order to reduce the 


number of elements in the rate array. 


The last part of the program presented in Figure 1 (cards 210-260) 
uses example-generating subroutines described in the next subsection to 
calculate tax changes for taxpayers in different family situations. The 
tax comparisons are calculated for two kinds of income: (1) from undefined 


sources but with all comprehensive income apart from family allowances 


$ IRBFT 
& 
C 
@ 
te 
le 
(¢ 
C 

50 

a 
E 
C 

1 

? 

2 

SNATA 

0 

CASF 

0) 

1 

2 

3 

4 

5 

6 

if 

8 

9 

19 

11 

12 

13 

14 

15 

16 

let, 

18 

19 


FIGURE 1 


PROGRAM AND DATA REQUIRED TO GENERATE TABLES 
PRESENTED IN CHAPTER 11 OF THE REPORT 


© MN=5 NECK 

Rice es MEGLINiES 

PROGRAM TO ANALYZE RATE SCHEDULES® CHARACTERISTICS AND EFFECTS ON 
TAXES PAID BY TAXPAYERS IN DIFFERENT FAMILY SITUATIONS 
(VERSTON OF L6/MAR/66) 

COMMIN /SWITCH/ ISW(8) 

JTMENSTION BOTTOME25), RATE(3+25) 45 CRED(25) 

RFAD (5-3) [Sw(6) 

CALI INPUT ( BOTTOM, RATE+ CREDe NCLASSe I[TPOUT.» CASENDO) 
CALL TABL ( BATTOMs RATEs CRED» NCLASS,. I[TPOUT. CASEND) 
CAtL TAB2 ( BOTTOM, RATE. CRED», NCLASS, ITPOUT ) 

CALL TAB?A ( BOTTOM. RATEs CRED. NCLASS-» ITPNUT ) 

CALE TAS3” (= SOTO Aves CHeD ye NGIASS +. iP OU a) 

CALL TAB4 (€ BOTTOM. RATEs CRED, NCLASS». ITPOQUT ) 

CAtt TABS € BOTTOM. RATF., CREDe NCLASS» ITPOUT ) 

CAUL TASG A POAT OMs RATE. CRED INGIASS.  LEPGUI. 3 

CALE TAB SC IO TIM aRAT Es CRED ea NCUAS SET eouTyt |.) 

CALL TA883 ( BOTTOMe RATE» CRED» NCLASS», ITPOUT ) 

lac 2 OA 

WRITF (527) FEMPL 

CALL APP12 (BOTTOMsRATE+CRFEDeNCLASSe ITPOUTsFEMPL ) 

CALL APP IAAC(BOTTOM»RATEeCREDeNCLASS-e LIE POUT »FEMPL ) 
FEMPIR= FEMPie ei 

WS (MER MIet siB@a Ila) COMI OmS! 

ARITF (45.1) 

LOAD NEXT SFT OF DATA CIF ANY) 

G0 Th 59 

FORMAT ( LHI ) 

FORMAT (C1H1. SLHFRACTION OF INCOME OBTAINED AS WAGES AND SALARTES 


$=-+ F4e.2-4 20H IN FOLLOWING TABLES 


FORMAT = (915 
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BLANK CARD ENDS SUBSET 


MN-5 
MN-5 
MN-5 
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MN-5 
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MN=5 
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010 
02U 
030 
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056 
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086 
090 
169 
Li 
129 
130 
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150 
169 
170 
180 
199 
200 
210 
220 
230 
240 
256 
260 
270 
280 
290 
300 
316 
320 
330 
340 
350 


currently taxed at full personal rates, and (2) exclusively from wages and 
salaries. The difference between the tax changes arising from the two types 
of income is that many employment expenses are not currently deductible in 
computing taxable income; comprehensive income is consequently less than 
currently taxable income in the second case by the amount of such expenses. 
In both APPl2 and APP12A it is assumed that employment expenses are computed 


using the optional standard allowance proposed by the Commission. 


The following subroutine and function descriptions are presented in 
the order in which they are listed in Appendix A; tax calculation functions 
are described first. In all cases the arguments of each subroutine are 


defined in the listing of the subroutine presented in Appendix A. 


TAXCOM. This function calculates taxes payable under the Commission's 
proposals with a given rate schedule and a given set of tax credits. The 
amount or unused tax credits (if any) is placed in the argument TXCRED upon 
output. By setting the first seven values of the CRED array to zero, the 
latter part of the program (cards 480-580) can be made irrelevant so that 


the subroutine can be used to calculate taxes under other tax systems. 


CURTAX. Taxes payable under the current (1966) tax system are 
computed by this function given the appropriate values ofr currently taxable 
income and current tax credits. If ISW(6) is set to zero, taxes are defined 
as those payable under the rates enacted in accordance with the March 1966 
Budget Message and include old age security taxes payable as of March 1966. 
If ISw(6) = 1, taxes include the effect of the increase in old age security 


taxes proposed in the Supplementary Budget Speech of December 19, 1966. 


TAXMIN. The purpose of this function is to find the optimum 


allocation for tax purposes otf dependants claimable by more than one income 


10 


recipient within a family. The value of the function is the minimum combined 


tax payable by the family. 


TAXALT. This function provides for the use of alternative tax 
calculations such as the CIca/CBA proposals for corporate source income or 


the current U.S. system. 


INPUT. The purpose ot this subroutine is to read in data defining 
a rate schedule. A listing of the data defining the rate schedule proposed 
by the Commission has been presented in Figure 1. The following are read: 
(1) on the first card, a six-character alphameric identifier of the schedule 
and a number denoting the number of income brackets in the schedule; (2) on 
the second card, seven tax credit values (described in the TAXCOM listing) 
plus the upper limits on zero-rate brackets for each of three rate schedules; 
(4) cards defining five parameters for a bracket: the bracket number, the 
income at the bracket bottom, and the marginal rates for each of the three 
schedules in the bracket. If the fifth parameter on a bracket card is 
blank, it will be set equal to the fourth. Any number (including zero) of 
the bracket cards may be read in; the bracket cards must however be followed 
by a card with blanks in colums 1-25. If no parameters are read in for a 


given bracket, they are assumed to have been previously defined. 


SETUP. The incomes and dependant numbers for which tax comparisons 


are calculated are defined in this subroutine. 


TAB1l. This subroutine prints a table (Tables 11-4 and 11-6 in 
Chapter 11 of the Report) summarizing the rate schedules being analyzed, 


including taxes payable at the bottom of each bracket. 


ual 


TAB2. The table produced by this subroutine (Table 11-7 in Chapter 11) 
shows for a given rate schedule the percentage reduction in taxes resulting 


from a taxpayer's marrying a spouse receiving no income. 


TAB2A. The output of this subroutine (the last colum of Table 11-8 
in Chapter 11) shows the percentage change in taxes resulting from 


aggregating the incomes of two spouses, each with equal taxable incomes, 


TAB3. This subroutine's output (Fable 11-15 in Chapter 11) shows 
the dollar change in taxes payable under the Commission's proposals as the 
result of the marriage of two income recipients. The change in taxes is 
calculated for families with different percentages of total income 


attributable to a wife who keeps working. 


TABL, The output of this subroutine (not presented in Chapter 11) 
provides data on the amount by which taxes are increased for a couple which 


opts to file separate tax returns under the Commission's proposals. 


TAB5. This subroutine computes data presented in Tables 11-16 and 
11-17 in Chapter 11 on the effective average rate of tax on income (assumed 


to be exclusively from wages and salaries) of a working wife. 


TAB6. The table calculated in this subroutine (Table 11-10 in 
Chapter 11) shows the percentage decrease in taxes resulting from the birth 


of a married couple's first child. 


TAB7. This subroutine calculates the data presented in Tables 11-12 
and 11-13 in Chapter 11 on the comparative effect of exemptions and tax 
credits on taxes paid by families with different numbers of dependent 


children and different incomes. 


Le 


TABS. his subroutine provides data (not presented in Chapter 11) on 
the income-elasticity of taxes at different incomes under the given rate 


schedule. 


Lea Example Generators 


The programs in this group have been used to generate the tables 
presented in Appendix I of Volume 3 and Appendices M and N in Volume } of 
the Report. Their potential applicability is not limited to the production 
of the tables in these appendices; similar examples could be generated 
using ditferent assumed compositions of incomes for taxpayers at ditferent 
income levels. The limitations that do exist arise from the fact that the 
subroutines in this section are built around a table-generator (TAXTAB) 
which produces tables with the same general format as those in the 
appendices: three tables for each example, showing tax changes for 
taxpayers with given incomes and given family characteristics. The three 
tables shown for each tax change example provide data on (1) current taxes, 
proposed taxes, and the change in taxes, (2) current average rate of tax, 
proposed average rate of tax, and the change in average rate, and (3) current 
rate of tax on a further $500 of marginal income, proposed rate or tax on 


the marginal $500, and the change in these marginal rates of tax. 


The use of these programs to produce the tables in the appendices 
cited in Volumes 3 and 4 of the Report is as straightforward as is the use 
of the rate schedule characteristic descriptors. The required calling 
program is listed in Figure 2; the data input is the same as for the program 
listed in Figure 1. For other applications it would be necessary to write 
programs calling TAXTAB which are similar in structure to APP12, APP19 and 


FNTAB2. 


PROGRAM REQUIRED TO GENERATE TABLES PRESENTED IN APPENDIX I 
TO VOLUME 3 AND APPENDICES M AND N TO VOLUME 4 


$IBFTC MN-6 DECK 


C 


C 
C 
G 


5) 


SBOATA 


RCT — MAIN 6 


PROGRAM T) GENERATE TAX COMPARISON EXAMPLES FOR TAXPAYERS 
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FIGURE 2 
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RFAD (5-2) ISw(6) 
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As with the rate schedule descriptor programs described in the 
preceding subsection, the example generator programs can be used to compare 
taxes resulting from the Commission's proposals with current taxes defined 
either as taxes under 1966 tax law or as taxes under the new tax rates 
proposed by the Supplementary Budget of December 1966. Current taxes are 
defined by the switch value read in from the first data card; if zero, 
current taxes are at 1966 rates; if unity, current taxes are at the proposed 
new rates, Tables produced with current taxes computed at the new rates 


are provided in Appendices J and K to this study. 


APP12. The purpose of this subroutine is to generate tax comparisons 
for units with different percentages of income attributable to a second 
income recipient. By setting FEMPL = 1, the comparisons for employment 
income presented in Appendix I in Volume 3 of the Report or in Appendix J 
to this study are obtained. By setting FEMPL = 0, comparisons are obtained 
for tax units whose taxable income is unchanged by our proposals except for 
the inclusion of family allowances, as in Tables 11-5, 11-9, and 11-11 in 


Chapter 11 of the Report. 


APP12A. The output of this subroutine provides data on the change 
in taxes for tax units with only one income recipient whose allowable 
deductions are interpolated from data specified in the DELDED array for 
taxpayers with incomes specified by the corresponding elements in the 


TAXAMP array. 


APP19. This subroutine sets up the cases for which comparisons of 
taxes on corporate source income are presented in Appendices M and N in 
Volume 4 of the Report and in Appendix K to this study. The actual 
calculation of the data used by TAXTAB to generate the tables is performed 


by subroutine FNTAB2. 
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FNTAB2. This subroutine, together with TAXTAB, produces tax comparison 
tables of the type presented in Appendices M and N in Volume } for any set 
of parameters defining the mix of corporate source incomes of different 
types. By using (and changing) the value of the argument THOLD appropriately, 
any combinations of income sources at different income levels can be used as 


the basis for the tables. 


TAXTAB. This subroutine is the basic component of all programs 
generating tax comparison tables of the type presented in the cited 
appendices to the Report. It is called once to generate each set of tax 
comparison tables with the arguments defined in the program listings 


presented in Appendix A. 


2.5 Tax Return er 


The purpose of the tax return analyzer is to provide the "core" 
programs needed for the production of tables generated by the table- 
generating subroutines described in the next section. These core sub- 
programs are designed so that any table can be generated merely by adding 
one subroutine for that purpose which has the following components: (1) a 
block of instructions to initialize arrays used for the accumlation of 
data, (2) a block ot instructions governing the appropriate entry of data 
to be accumulated from each tax return, and (3) a block of instructions 
providing for the printing of the accumulated results. Each block of 
instructions is accessed from a different subroutine in the tax return 
analyzer: the first block from INLST, the second from STOLST, and the third 
from OUTLST. There is no other program linkage between the "core" programs 


and the table-generating subroutines. 
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For each tax return, the tax return analyzer reads the available data, 
computes estimates of the Commission's reforms, classifies the tax return, 
and then accesses STOLST. This data analysis loop is outlined in schematic 
form in Figure 4. The tax return data are assumed to be in one of several 
forms for which provision is made in subroutine READIN; alternative data 
input can be obtained by altering READIN. In all subsequent programs, data 
are assumed to be stored in two arrays ("KLAS" and "SUM") which are defined 


in Appendix B. 


Family characteristics of the tax unit are defined in subroutine 
FAMPAR. The effects of the Commission's proposals on the taxpayer's tax 
base are estimated in BASADJ, based on the data read in and on the assumption 
parameters defined in Appendix C. Either of these subroutines can of course 
be altered to test the effect of different proposals or to change the 
estimation of family characteristics; furthermore, the estimated base 
adjustment effects defined in BASADJ are in all complex cases programmed in 
separate functions to make alteration easier. Provision for adjustment of 
the underlying data to reflect their elasticity to changes in gross national 
product, is included in XTRAP. The tax return group is classified for inter- 
mediate storage purposes in KLASFY. Accumulation of data in table-generating 


subroutines is accessed through STOLST. 


Upon entry to STOLST, estimates have been made of all effects of the 
proposed changes in tax law upon the tax base and taxes payable by or 
attributable to the average taxpayer corresponding to the tax return 
analyzed. These changes are stored in arrays forming two COMMON lists 
(entitled "DATA" and "ADJUST"); the content of these arrays is defined in 


Appendix D. All data can then be accessed directly in any table-generating 


lag 


Figure 3 
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subroutine; alternatively, it can be written out on tape and then read in 


without the need for recalculating the effects of the proposals. 


The basic structure of the overall program into which this data 
analysis loop fits is shown in schematic form in Figure 4. The program 
consists essentially of three components: (1) a block of instructions in 
which one or more sets of assumption parameters, rate schedules, and control 
parameters governing the tables to be generated, type of data input, and so 
forth,are read in and stored, (2) a subroutine (TAXANL) governing the 
processing of the file of tax returns for one set of parameters, and (3) a 
control program (PROGCN) which governs the processing of all parameter sets 
read in. As the schematic outline of Figure 4 indicates, each parameter set 
is successively processed in TAXANL and then control is returned to PROGCN 


to obtain the next parameter set. 


If so desired, the effect of one or more reforms may be suppressed in 
all computations underlying the generation of tables. Cards defining pri 
reforms to be suppressed are read in along with assumption and allowance 
parameter sets by PINPUT; the suppression of these reforms is then executed 


by SUPREF. 


Subsequent discussion of each subroutine is in the order in which 
they are listed in Appendix A. Because TAXANL is the basic program, governing 
the processing of the tax return file, it is presented first. Program 
control and parameter input segments (PROGCN and associated subroutines) are 
described next; as Figure 4 shows, they are outside the basic TAXANL 
processing loop. Subroutines contained in the data analysis loop inside 


TAXANL are then described. 
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Figure 4 
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TAXANL. The purpose of this subroutine is to govern the processing 
of the tax return file for one set of assumptions, rate schedules and other 
parameters; its overall organization is shown by the lower portion of the 
schematic outline presented in Figure 4. The listing presented in Appendix A 
not only presents the instructions governing this processing but also provides 
a description of the parameters stored in COMMON lists. As the programme 
listing in Appendix A indicates, the program essentially consists of calls 
on other subroutines, and has little other than an organizational function. 


The program will write intermediate output on a tape if so ordered. 


MAIN 18R2. This program segment has three functions: (1) to define 
@ number of miscellaneous parameters, including tape assignments and the 
maximum number of records (if any) to be printed as debugging output aids, 
(2) to govern the PROGCN - TAXANL loop portrayed at the top of Figure 4, 
and (3) to provide for the execution of more than one set of parameter sets. 
The control portion of PROGCN is set up to govern the processing of all 
combinations of rate schedules, assumption sets, and certain other control 
parameters read in as one job; the macro loop in MAIN 18R2 allows for the 


processing of more than one job. The macro loop is not shown in Figure }, 


PROGCN. This subroutine has two functions: (1) to read in a number 
of control parameters and to store assumption parameters and rate schedules 
read in by other subroutines (PINPUT and INPUT), and (2) to govern the 
sequential processing of each possible combination of parameter sets. The 
control parameters read in are detailed in Appendix E. This subroutine 
calls INPUT and TAB1 (both described in section 2.1) to read and print each 
rate schedule; it accesses separate segments of PINPUT to read and print 


assumptions sets, allowance parameters, and reforms to be suppressed. 


au 


Proration parameters (governing the calculations prorating tax changes 
over reform categories executed in subroutine RVTAB2) are also read in; 
the actual values read in are irrelevant, however, unless RVTAB2 is to be 


called from STOLST. 


PINPUT. The assumption and allowance parameters defined in 
Appendix C are read in by this subroutine, which also can be called to 
print them, In addition, reforms can be suppressed by reading in for each 
reform to be suppressed a pair of numbers corresponding to the number of 
the reform shown in Table H-1 in Appendix H to this study. As in subroutine 
INPUT, any amount of data may be read in any order and parameters are not 
initialized to any value; the entire set of parameters must be followed 


by a card with blanks in columns 1-25, 


READIN. This subroutine provides for the input of tax return data 
in four different forms: (1) binary records containing only the arrays KLAS 
and SUM, (2) records containing original data from which the elements of 
KLAS and SUM are to be calculated, (3) BCD records (card images), and 
(4) binary records containing intermediate output (the rest of the "DATA" 
and "ADJUST" COMMON lists) as well as KLAS and SUM. In Case 2, it is 
necessary to supply the appropriate versions of subroutines RECORD AND 
ACCUM to read the data and convert each data array into the numbers 
required to be in KLAS and SUM, In Case 4, READIN accesses another 
subroutine (SPREAD) which takes care of such matters as introductory 
records on the data tape. In all cases, provision is included for editing 
the data (again it is necessary to provide an ad hoc version of subroutine 
EDIT for this purpose) and for working in terms of sample averages 


instead of totals. 
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FAMPAR. This subprogram exists because of the incomplete specifica- 
tion of family characteristics of taxpayers in the data collected from each 
tax return in the Department of National Revenue's 1964 "Taxation Statistics" 
sample. Estimated family characteristics are stored in the COMMON list 
entitled "FPAR". Estimation is programmed both for tax returns as origi- 


nally surveyed and for tax returns aggregated into family units. 


XTRAP, To allow for the measurement of revenue elasticity, this 
subroutine has been inserted. It is simply programmed to modify the basic 
tax return data read in by READIN before proceeding to BASADJ; the modi- 
fications are summarized in Chapter 3 below. If it were desired to modify 
the output of BASADJ rather than just the tax return input it would be 
necessary to add a second segment to XTRAP to be accessed from TAXANL after 


returning from BASADJ. 


BASADJ. Together with a number of additional subprograms specify- 
ing the form of miscellaneous base adjustments, this subroutine provides 
estimates of the current and proposed tax bases and taxes along with esti- 
mates of the detailed base changes underlying the tax changes. The output 
of this subroutine is described in Appendix D; sample output for 7 examples 


is presented in Appendix M. 


KLASFY. It is assumed that the tax returns read in are classified 
in terms of five variables (preliminary family status class, currently 
assessable income, tax-paying status, age/occupation/sex, and number and 
type of dependants). This subroutine provides for the classification of 
returns by other definitions of income and allows for the choice of ad- 
ditional cross-classifications. The initialization entry must be accessed 


prior to entering the data analysis loop in TAXANL. 


23 


PROTAX. This function merely provides for easier use or the TAXCOM 
function described earlier. It is set up to calculate personal income tax; 
direct taxes under the Commission's proposals can be calculated by setting 
TCRED(2) to zero. Only negative and zero values of IFCRED are used in this 


part of GITAN. 


SUPREF. This subroutine,called from BASADJ, effects the suppression 
of reforms defined by parameters read in by PINPUT. The initialization 


entry must be accessed before entering the data analysis loop in TAXANL. 


INLST. Link to initializing segments or table-generating subroutines. 
This subroutine (along with STOLST and OUTLST) should be altered if 
additional table-generating subroutines are written; the only instructions 


required by TAXANL are statements 120 to 160. 


STOLST. Link to accumulation segments of table-generating subroutines. 
The variables accumulated are in a number of cases defined in this program; 
tables generated by the subroutines described in the next section can 


consequently be modified by changing definitions contained in STOLST. 


OUTLST. Link to table-printing segments of table-generating subroutines. 
Switch values controlling the choice of tables to be printed are defined in 


Appendix E. 
2.4 Table-Generating Subroutines 


All table-generating subroutines involving the accumulation or data 
obtaining from analyses of each tax return have the ternary structure 
already noted in the previous subsection: an initialization segment, an 


accumulation segment, and a final table-preparation segment. It is envisaged 
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that each of these three segments be accessed respectively from INLST, 
STOLST, and OUTLST, All data produced by the tax return analyzer subroutines 
are available in several COMMON lists accessible to any table-generating 
subroutine; these available data are described in the COMMON list 
descriptions provided by the program listing of TAXANL in Appendix A and 


by additional detail presented in Appendix D. 


Any combination of the following table generating subroutines can 
be used with the tax return analyzer. Where possible, table-generating 
subroutines are defined by referring to examples of their output reproduced 


elsewhere, 


SUMRIZ. Examples of the output generated by this subroutine are 
provided by Table C-7 in Appendix C of Volume 6 of the Report and by 
Tables F-2 and H-5 in Appendices F and H to this study. The output simply 
summarizes by income class the number of data records processed in each 
computer run (or within each stratification of the sample if the seapie is 
processed by stratum rather than as one group; see "KCHNGE", defined in 
Table E-l in Appendix E), In addition, swmmary estimates of the number of 
taxpayers and current and proposed taxable income and taxes are provided 


for each income class. 


RVTAB2. The purpose of this subroutine is to prorate changes in 
taxes for each taxpayer over the reforms causing this change and to 
accumulate these prorated effects by reform. Reforms are defined in 
Table D-5 in Appendix Dto this study. The method of proration is variable 
and is defined by proration parameters read in by PROGCN. This subroutine 
has been used to generate the output presented in Appendix C of Volume 6 
of the Report; in this application parameter values are IBASIS = 1 and 
IORDER = (1,2,3,4,5,6,7). Sample output for 7 examples is presented in 


Appendix M to this study. The initialization portion of subroutine SUPREF 
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must be accessed prior to entering the initialization block in RVTAB2 in 


order to define the reform dictionary contained in the "REFDIC" COMMON list. 


It should be noted that RVTAB2 accesses two dummy subroutines (AVGING 
and FAMDEL) which are incorporated to allow for use of RVTAB2 with data at 
a taxpayer level on the effects of income averaging and of aggregating 


taxpayers into family tax units. 


ACINC2. This subroutine produces a table showing taxable income in 
each of 10 income classes by tax bracket. It thus provides a quick means 
of analyzing the effects or changes in tax rates upon taxes before deduction 


of tax credits, provided of course that the tax base is kept unchanged. 


INCID2. The purpose of this subroutine is to provide summary data 
on the average change in taxes for taxpayers in each income class. Output 
for taxpayers stratified by age/occupation/sex class is provided in 


J. Bossons, Who Benefits and Who Pays, a study published by the Commission. 


ACCDEL. Output from this subroutine consists of a table showing the 
distribution of taxpayers in each income class by the percentage change in 
their taxes; examples are provided in the study just cited. As with INCID2, 
the tables can be altered by altering the data input to these subroutines 


specified in STOLST. 


BASTAB, BASCOM. Output from subroutine BASTAB is presented in 
Appendix A of J. Bossons, Changes in Direct Taxes on the Components 
of Income (hereinafter cited as Changes), a study published by the Commission. 
The purpose of this subroutine is to provide detailed data on previous tax 
status and on current and proposed average tax rates for each major component 


of income for taxpayers grouped by income class. The appropriate accumulation 
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of data is defined in BASCOM, which must be accessed in each of INLST, 


STOLST, and OUTLST. 


BASKLS. Output from this subroutine corresponds to Tables B-3 
through B-9 of Appendix B in Volume 6 of the Report and to Tables L-1 and 
L-2 of Appendix L to this study; sample output for 7 examples is presented 
in Appendix M to this study. The output is effectively a summary of data 
presented in the output of BASTAB. Intermediate calculations are contained 
in BASCOM, Neither BASTAB nor BASKLS have a ternary structure since they 
are only output routines. Income accrued in each income component may be 


shown by setting ISW(9) to 1. 


MARTAB, Output from this subroutine is presented in Appendices B 
and E,of J. Bossons, Changes; its purpose is to provide data on average 
effective tax rates and on effective marginal tax rates on different sources 
of income (as defined in BASTAB ) for taxpayers in different income classes, 
MARTAB is only an output routine; intermediate calculations are eae ned 
in BASCOM, accessing RMARG to calculate marginal tax rates for each taxpayer. 
As in BASKLS, the income for which tax rates are defined may be either com- 


prehensive-base taxable income or total accrued income. 


COMSET. This subroutine defines the data to be accumulated to produce 
the tables presented in Appendices C, D, F and G,of J. Bossons, Changes. 


The tables themselves are produced by subroutine COMPEF, 


COMPEF. The purpose of this subroutine is to accumulate data on 
current taxes, proposed taxes, and underlying income for a particular income 
source defined externally. The data are accumulated for taxpayers grouped 
by income class and by importance of the particular income source being 
analyzed. A third classification dimension is also provided. (In the ap- 


plication using COMSET, the third classification is used to denote different 


eat 


income sources and different tax calculations. The subroutine is set up to 
produce data on average tax rates, average marginal tax rates, and the 
proration of tax changes to each component as well as simply data on changes 
in taxes. Income may be defined as either comprehensive-base income or as 


total accrued income by choosing the appropriate value of ISW(9). 


DETCOR, CDET. Tables produced by DETCOR show the effect of different 
reforms, singly and in combination, on the average tax rate on corporate 
source income. Intermediate calculations are contained in CDET. Tax change 
data are shown separately both for changes in corporate taxes alone and for 


changes in all direct taxes combined. 


SUMSAM. This subroutine accumilates the original data read in from 


each tax return by income class, 


SUMDAT. The purpose of this table is to accumulate summary data on 
a number of miscellaneous variables, such as underlie Table 35-2 in Chapter 435 
or are referred to in various notes in Appendix A to Volume 6 of the Report. 


The output can be identified from the program listing. 


DBUG1, DBGMAT. These subroutines, accessible only from STOLST, print 
out intermediate output for debugging purposes. 3/ DBUG1 prints out all of 
the intermediate output available for use in the table-generating subroutines 


for a given tax return. 


SELECT. This function, with standard ternary structure, exists to 
facilitate the extraction and processing of subsamples from the entire tax 
return sample. Its use is controlled by the value of ISW(7) as indicated in 
Appendix E; records to be selected are defined by card input described in 


cards 290-310 in the subroutine listing. 
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A test set of input data, together with the output produced by 
this input, is presented in Appendix M to this study to aid in 
the implementation of these programs on other machines. 


A considerable amount of data processing was required to convert 
the data file supplied by the Department of National Revenue 

into the form in which they were used as input with the programs 
to be described in this chapter. This processing is described 

in section 3.1 below; much of the programmed analysis is described 
in Appendix B to this study. The programs have not been repro- 
duced or discussed in detail because of their lack of general 
interest. 


Additional intermediate debugging output may be generated by 
using an ad hoc version of SPEDBG supplied by the user; SPEDSG 
has the standard ternary structure and is called from INLST, 
STOLST and OUTLST. 


CHAPTER 3 
APPLICATIONS TO 1964 TAX RETURN DATA 


This chapter has two purposes: (1) to detail the way in which the 
programs described in the preceding chapter have been used together with a 
sample of 411,510 tax returns to generate the analyses reported in Volume 6 
of the Report, and (2) to update and revise those analyses. The tax return 
sample is described in the first section of this chapter, following which 
the revenue estimates presented in Chapter 355 of the Report are described 
and revised. Estimates of the effect of long-term growth in gross national 
product on tax revenues under the current and proposed tax systems are also 
presented. In the final sections of this chapter, the incidence estimates 
presented in Chapter 36 of the Report and in two companion studies are 
described; updated estimates of the incidence by income class of tax changes 


resulting from the Commission's proposals are also presented. 


pest Description of Data 


The data used in conjunction with the programs described in Chapter 2 
to generate estimates of changes in the revenue yield and incidence of the 
tax system were obtained from a sample of 411,510 tax returns (unidentified 
as to taxpayer) obtained from the Department of National Revenue. The 
criteria governing whether a return was included in the sample depended 
upon the type of tax return filed, the district office where the return was 
filed, and the net assessable income reported on the return. 1/ "Net 
assessable income” was defined as assessable income under 1964 tax law less 


deductions for registered pension plans, premiums paid into Registered 


es) 
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Retirement Income plans, other allowable expenses, and alimony and 


separation allowances paid. 


It was necessary to perform a number of operations on the sample in 
order to put it in the form in which it was used as input to the analysis 
programs described in Chapter 2, This preliminary data processing had two 
purposes: (1) to estimate family status variables not recorded on each 
tax return and to classify each return on a number of indices, and (2) to 
reduce the volume of computations by aggregating data for similar tax 
returns. Since it took sixteen (16) fully blocked 550 BPI magnetic tapes 
to hold the original sample data file, the second objective was of some 
importance. The preliminary calculations and classification of each return 
are described in Appendix B; having classified each return, the returns were 
sorted and aggregated into 19,370 groups, thus effecting a twentyfold 
reduction in the amount of data to be processed. The data collected for 
each group are listed in Table B-8 of Appendix B to this study; seven 
examples of these groups and the data collected for each of them are 


presented in Appendix B to Volume 6 of the Report. 


Since the primary purpose of classifying the returns was to separate 

them into groups of returns upon which the Commission's proposals would 

have essentially the same impact, the most important variable by which 
returns were classified was income. (For this purpose "income" was defined 
as total income reported on each tax return as assessable under 1964 tax 
law.) The income classes into which tax returns were divided are shown in 
Table 1. The ratio of the number of tax returns sampled within each of 
several different income ranges to the total number of individuals with 


incomes in that range assumed to have filed tax returns in 1964 is also 
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TABLE 1 


CLASSIFICATION OF 1964 TAX RETURNS 
BY TOTAL INCOME ASSESSED 


Number of 

Number of Width of Groups 
Income Each Palling 

Income Classes Class Sampling Within 

Range in Range in Range Rate Range 
Less than $1 1 open-ended <9 28h 
$1 - 499 im 500 ast 511 
500 - 1,999 6 250 3.0 2,526 
2,000 - ~' 9,999 16 500 iF 8,864 
10,000 - 14,999 5 1,000 34.9 2,829 
15,000 - 16,999 al 2,000 58 4 600 
17,000 = 19,999 F 3,000 236 622 
20,000 - 39,999 4 5 ,000 95.9 1,964 
40,000 - 49,999 1 10,000 100.0 395 
50,000 - 224,999 “4 25,000 100.0 929 
225,000 - 299,999 1 75,000 100.0 28 
300,000 - 499,999 2 100,000 100.0 10 
Over $500,000 uh open-ended 100.0 8 
TOTAL NT 19,370 


Note: Income is defined as total income assessable under 1964 tax law; 
total income may be negative as a result of reporting net losses 
for income from a business, profession, farm, or fishing operation. 
Sampling rates in each income range are defined as the ratio of the 
number of tax returns sampled falling in that income range to the 
estimated number of individuals with that income filing 1964 tax 
returns. 


Source: Appendix B, Tables B-9 and B-10. 
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shown in the table; more detail on sampling rates by income class is 
presented in Table B-10 in Appendix B. Virtually all tax returns filed by 
individuals with 1964 assessable incomes in excess of $25,000 were included 


in the sample. 


Sampled tax returns in each of the 47 income classes shown in Table 1 
were further classified on the basis of several other attributes, so that 
4,320 groups of separated returns could conceivably be obtained for each 
income class. The last column in Table 1 shows the number of such groups 
actually obtained for each income class. Further detail on the distribution 
of sample groups by income class and by the number of tax returns in each 
group is presented in Table B-9 in Appendix B. Table B-9 indicates a lesser 
relationship between income class and average sample size than might be 
expected. The average group sampling rate for groups classified by number 


of tax returns in each group is shown in Table 2. 


The other attributes by which returns were classified were (1) a 
"preliminary family status" variable reflecting the marital status of the 
individual filing each return and the amount of income earned by his spouse, 
(2) an index reflecting the age, occupation, and sex of the individual 
filing the return, (3) a "dependant status" variable reflecting the number 
and type of dependants claimed, and (4) whether or not taxes were assessed 
on the return in 1964. Of these, the first two were of greater importance 
than the last two in their effect on income composition and sensitivity to 
the tax changes resulting from the Commission's proposals. Some further 
data on the distributions of tax return groups by family status, income, and 


age/occupation/sex classes are provided by Table 3. 


Data collected from tax returns falling within each of the 47 income 


classes used in the initial classification are presented in Appendix F. 
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TABLE 2 


DISTRIBUTION OF SAMPLE GROUPS BY SAMPLE SIZE 


Number of Tax Number of Average 
Returns in Sample of Group 
Sample Groups Groups Sampling Rates 
1- 4 11,343 DL 
2-t2 2,554 429 
10-14 1,180 42h 
15-24 1,199 408 
25-49 akg, 407 
50-99 902 ~380 
100 and 875 2263 
over 
ALL GROUPS 19,370 


Note: The average sampling rates shown in this table are 
simple averages of the sampling rates in each of 
the sample groups in each sample size class. 
Sampling rates in each sample group are defined as 
the ratio of the number of sampled tax returns 
falling in that group to the estimated number of 
taxpayers to which those tax returns correspond. 
This latter estimate was obtained by summing the 
reciprocals of the sampling rates governing the 
selection of each return in the group. 
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3.2 Preparation of Revenue Estimates for 1964 


The calculations underlying the estimates presented in Chapter 45 
of the Report of the effects the Commission's recommendations would have 
had on direct tax revenue yields in 1964 have already been defined by the 
programs discussed in Chapter 2, together with the parameter values stated 


in Appendices C and E. 


The output presented in Appendix B to Volume 6 of the Report is 
obtained from the data for the seven example groups with program control 
parameters defined as in the second column of Table E-4 and with ITABSW(8) 
set to 3. The output for the same example groups in Appendix C to Volume 6 
of the Report is obtained from the same input by merely setting ITABSW(1) 
to 1. The output presented in that appendix for all resident individuals 
who filed tax returns in 1964 is obtained from the complete data file with 
ITABSW(1) = 1 and with control switches defined as in the first column of 
Table E-4+., The estimates of tax and base changes presented in Chapter 35 
are obtained from the same input with ITABSW(8) set to 3. In all cases the 


assumptions used are as defined in Table C-l in Appendix C to this study. 


The output obtained in this way for all resident individuals filing 
tax returns is classified by comprehensive-base taxable income, that is, 
by assessable income under the comprehensive tax base recommended by the 
Commission less concessionary allowances proposed. The classification is 
shown in Table 4. The data collected from tax returns for groups falling 
within each comprehensive income class defined in Table } are presented in 


Appendix F. 
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TABLE 4 


CLASSIFICATION OF TAXPAYERS BY INCOME 
IN OUTPUT TABLES 


Class Income 
af Less than $1,000 
2 $ 1,000 - $ 1,999 
3 2,000 - 2,999 
4 3,000 = 3,999 
5 4,000 - 4,999 
6 2 3000 = 2999 
cf 6,000 = 7,999 
8 8 ,000 = 9,999 
9 10,000 - 11,999 
10 12 ,000 - 14,999 
uy 15 ,000 sed eh eee 
12 20 ,000 - 24,999 
13 25,000 - 34,999 
14 35,000 - 49,999 
15 50,000 - 74,999 
16 75,000 aus 997999 
ay, 100,000 - 149,999 
18 150 ,000 me-99.,999 
19 200 ,000 - 299,999 
20 300,000 or more 


Note: “Income” is defined as comprehensive income less proposed 
concessionary allowances in all tables showing tax changes 
by income class in Chapter 36 and Appendix C to Volume 6 
of the Report as well as in the tables presented in this 
study. 
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The revenue and incidence estimates presented in Volume 6 of the 
Report are deficient in two particulars: (1) they do not take account of 
the changes in tax rates announced in the Budget Message of December 19, 
1966; (2) some of the assumptions upon which they are based result in an 
incorrect distribution of certain base changes among resident individuals in 
different income classes. 2/ Only the first of these deficiencies has a 
significant effect on the estimated size of the revenue surplus over the 
yield of the current system produced under the Commission's proposals, but 
both have a significant effect for the incidence of the tax changes on parti- 
cular classes of taxpayers. The effects on incidence estimates will be dis- 


cussed in section 3.4 below. 


The changes in assumptions introduced in this study are shown in 
Table C-3 of Appendix C to this study. The most important changes are as 


follows: 


1. The method of attributing currently untaxed benefits which would be 
brought into the comprehensive tax base has been changed to avoid 
an over-attribution of personal expenses to proprietors of unin- 
corporated businesses. The effect of this change is to reduce 
estimated benefits in this category from $223 million to $38 million. 
Benefits attributable to top employees and to self-employed profes- 
sionals and commission salesmen have been assumed to be higher than 


estimated in the Report. 3/ 


2s Currently unreported dividends attributable to resident individuals 
have been explicitly estimated in order to obtain more accurate 
estimates of the distribution of corporate source income across 
individuals. Three components of unreported dividends were analyzed: 
(1) Dividends received in 1964 by individuals not required to file 


tax returns because their income was below the filing requirement of 
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$250 were estimated to have amounted to $9 million. 4/ (2) Unre- 
ported dividends received by individuals who filed tax returns but 
whose income was insufficient to engender tax liabilities were esti- 
mated to total $13.4 million in 1964, Such unreported dividends 

were assumed to be 40 per cent of reported dividends for non-taxable 
retired individuals and to be 30 per cent of reported dividends for 
other individuals who were non-taxable in 1964, provided that the 
average amount assumed to be under-reported on each return did not 
exceed $500. In addition, non-taxable individuals aged hO or older 
who reported no dividend income were assumed to have received unre- 
ported dividends averaging $20. (3) Because of the required issuance 
of T-5 slips for all dividend payments over $10 and because of the 
relative incentive to report provided for low-income taxpayers by the 
dividend tax credit in Canada (compared with the disincentive to report 
small amounts in the United States resulting from the dividend exclusion), 
dividend under-reporting by individuals reporting taxable income may be 
substantially less than in the United States. Nevertheless, dividend 
unreporting has been extrapolated from United States estimates. Total 
unreporting in this category in 1964 was estimated to amount to $7.3 
million, based on an assumption that such unreporting constituted 5 per 
cent of reported dividends for individuals with currently taxable income 
be low $10,000, again with an assumed upper limit of $500 on the average 


amount assumed to be under-reported on any individual tax return. 5/ 


The specification of the relationship between allocated taxed corporate 
income and dividends has been improved by allowing for non-allocation 
of some allocable corporate income (and tax) and by allowing for the 
effect of the deferral of tax on current cash distributions out of 
which would be untaxed under the Commission's proposals. 6/ Non- 


allocation of allocable corporate income could occur for two reasons: 
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(1) Loss carrybacks would be applicable only against unallocated 
taxed corporate income, thus encouraging some boards of directors to 
maintain a reserve of unallocated income, (2) Non-resident majority 
owners of some Canadian companies might be unwilling to allocate 

taxed income (even though such allocation would be profitable to 
resident minority shareholders ) because of the potential additional 
value of the company in the event of its sale to residents as a re- 
sult of the tax credit which would then be allocable out of the un- 
allocated taxed surplus. It has been assumed that 3 per cent of 
taxed corporate income would not be allocated to shareholders; un- 
allocated taxed corporate income thus estimated to have been allocable 
to resident individuals in 1964 amounted to $58 million. It was also 
assumed that net cash distributions out of untaxed surplus which would 
not currently be subject to tax would amount to 60 per cent of such 
distributions; total cash dividends distributed in 1964 out of what 
would have become untaxed surplus under the Commission's proposals 


were estimated to have amounted to $47 million. 7/ 


The assumed attribution of some policyholder investment income accrued 
by life insurance companies in 1964 to resident individuals not filing 
tax returns in 1964 was eliminated, thus increasing the total amount 


attributed to individuals who filed tax returns in 1964 by $14 million. 


The assumed 100 per cent realization of capital gains accrued on taxed- 
income securities, real estate and assets of unincorporated businesses 
was modified so as to assume (1) the same ratio of realized gains to 
accrued capital gains on fixed-income securities as on corporate equi- 
ties, (2) a ratio of realizations to accruals of 0,5 for gains on real 
estate, and (3) a ratio of realizations to accruals of 0.33 for capital 


gains of unincorporated businesses. Capital gains realized in 1964 are 
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consequently estimated to have totalled $86.6 million on fixed-income 
securities, $68.6 million on real estate, and $47.5 million on unin- 


corporated business assets. 


6. Estimated additional tax collections of $20 million on capital gains 
realized on real property owned by non-residents have been shown 


explicitly. 


Ts Since much of the reform in the control of amounts deducted as chari- 
table contributions which was recommended by the Commission was 
introduced by the Government in 1966, it was assumed that 70 per cent 
of the total effect of the changes proposed by the Commission was 
achieved by the 1966 reforms. The net effect of this was to make the 
estimated total 1964 personal income tax base under 1966 tax law 
$13,315 million rather than $13,226 million, resulting in an increase 
of $10 million in the estimated total personal income taxes which 


would have been accrued in 1964 under 1966 tax law. 


The effect of these revisions is to change estimates of the revenue yield 
of the personal income tax both under the current system and under the 


Commission's proposals. 


Revised estimates of the effect of the Commission's proposals upon 
1964 tax revenues (excluding transitional effects limited to a period of 
several years following introduction of the reforms) are presented in 
Table 5. These estimates update and revise the estimates presented in 
Table 35-1 in Chapter 435 of the Report. The effect of correcting the as- 
sumptions used to produce the estimates presented in the Report is to change 
estimated 1964 revenues from the personal income tax as follows: revenue 
under the current (1966) system is increased by $10 million and under the 


Commission's proposals is reduced by $36 million. The estimated effect of 
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TABLE 2 


REVISED ESTIMATES OF THE EFFECTS OF THE COMMISSION'S PROPOSALS 
ON 1964 REVENUE FROM TAXES AFFECTED BY THE PROPOSED REFORMS 
(millions of dollars) 


Current System Defined Revenue Under the Revenue Under the 


As Enacted in 1966: Current Tax System Proposed Tax System Change 
Corporation income taxes 1,941 2,473 532 
Gift and estate taxes 143 —_ -143 
Personal income tax 2,686 2,598 -88 
Sales and excise taxes 1,597 1,472 _7125 

TOTAL REVENUE 6.367 02543 176 


Current System As 
Modified by Rate 
Changes Proposed in the 
December 1966 


Budget 

Speech: 

Corporation income taxes 1,941 2,473 532 

Gift and estate taxes 143 — -143 

Personal income tax 2,716 2 598 -178 

Sales and excise taxes 1,742 wie _-270 
TOTAL REVENUE 6,602 6,543 _=59 


Note: Revenue under the current tax system as enacted in 1966 is assumed 
to be the same as that actually accrued in 1964 except that certain 
modifications in the existing tax law enacted between 1964 and 1966 
have been reflected in the estimates of current revenue from the 
personal income tax and manufacturer's sales tax. These modifications 
are detailed in Table 6 below and in Table 35-3 in Chapter 35 of the 
Report. Corporation income tax includes the tax on corporate distri- 
butions to residents made under the provisions of section 105 of the 
Income Tax Act. Personal income tax under the proposed tax system 
includes an adjustment of $50 million to reflect the deferment of tax 
on corporate source income attributable to the trustees of Registered 
Retirement Income Plans and to certain exempt institutions which are 
now taxed at the corporate level. All taxes include old age security 
taxes collected and are before abatements of tax to the provinces. 
Some figures do not add to totals because of rounding. 


he 


the changes in tax rates proposed in the Supplementary Budget Speech of 
December 19, 1966, would have been to increase 1964 revenues from the cur- 
rent tax system by $235 million. The effect of all changes combined is to 
change the estimated long-term 1964 revenue surplus of $222 million presented 


in Chapter 35 of the Report to a deficit of $59 million. 


The changes in the estimated 1964 yield of the personal income tax 
under 1967 tax law require a more detailed statement of underlying causes 
in order to be reconciled to the estimates presented in the Report. These 
data are provided by Table 6, which presents a reconciliation of the revised 
estimates of 1964 personal income tax revenues under the current (1967) tax 
system to amounts actually accrued in 1964, as shown in 1966 Taxation 
Statistics, Part One. This table revises and updates Table 35-2 in Volume 6 


of the Report. 


Revised versions of Tables 45-8 and 45-10 of Chapter 35 of the Report 
are presented in Tables 7 and 8. The revised estimates provide a more ac- 
curate breakdown of the incidence of changes in the tax base on the major 
components of income as well as incorporating the effects of the revised 
assumptions noted above. As these tables indicate, estimated total assess- 
able income of resident individuals would, under the Commission's proposals, 
have amounted to $31,587 million in 1964 rather than $31,959 million as shown 
in Table 45-10 in the Report. 8/ These tables summarize more detailed data 


presented in Appendix L to this study. 


The effect of these changes in assessable income upon the personal 
income taxes which would have been accrued in 1964 by resident individuals 
filing tax notin in that year is shown in the first part of Table 9. Given 
the estimated tax base changes, total personal income taxes accrued in 1964 
by these individuals would have fallen from $2,776 million to $2,643 million. 


These base changes exclude the effects on such individuals of two important 
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TABLE 6 


RECONCILIATION OF PERSONAL INCOME TAX ACTUALLY 
ACCRUED IN 1964 TO WHAT WOULD HAVE BEEN ACCRUED 
HAD 1967 TAX LAW APPLIED IN 1964 
(millions of dollars) 


1964 net personal income tax base under 
1964 tax law sigoyrcoulh 
Major changes in the base between 1964 and 1967: 


Effect of greater control over charitable 


deductions 89 
Extension of old age pensions to all 
residents aged 65 to 69 2he 
pon 
Less: Deduction for Canada Pension Plan 
premiums 327 h 
1964 PERSONAL INCOME TAX BASE UNDER 1967 TAX LAW LP prot iis) 


Components of 1964 personal income taxes: 


Federal income tax accrued 1,985 
Old Age Security tax accrued 497 
Accrued personal income tax abated 
to the provinces 4.33 
TOTAL 1964 PERSONAL INCOME TAX ACTUALLY ACCRUED 
UNDER 1964 FEDERAL TAX LAWS 29015 
Sample averaging errors a 


TOTAL 1964 PERSONAL INCOME TAX UNDER 1964 TAX 
LAW AS ESTIMATED FROM SAMPLE 2,804 


Revenue changes resulting from 1964-67 changes 
in tax law: 


Revenue loss resulting from base changes wl 

Effect of decrease in personal income tax 
rates between 1964 and 1966 103 
Ld 


Less: Revenue gain on 1964 base from the increase 
enacted in 1967 in Old Age Security income 
taxes on individuals 90 28 


ESTIMATED TOTAL 1964 PERSONAL INCOME TAXES 
UNDER 1967 TAX LAW ey tie 


Note: Personal income taxes include old age security taxes and are before 
abatements to provinces estimated at $433 million. All figures are 
defined on an accrual basis, as in 1966 Taxation Statistics, Part One. 
Sample averaging errors arise because of the aggregation of returns 
into 19,730 group totals described in Appendix B to this study. Some 
figures do not add to totals because of rounding. For other notes, 
see accompanying text and Appendix A to Volume 6 of the Report. 
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TABLE 8 


REVISED ESTIMATES OF THE 1964 PERSONAL INCOME TAX BASE UNDER 
THE CURRENT (1967) AND PROPOSED TAX SYSTEMS FOR RESIDENT 
INDIVIDUALS WHO FILED TAX RETURNS IN 1964 
(millions of dollars) 


Changes 
Current in the Proposed 
Tax Base Tax Base Tax Base 
Components of income 
Employment income eis -369 21,983 
Professional or commission 
income of self-employed 
taxpayers 1,097 90 1,187 
Corporate source income LG 2,084 2,530 
Unincorporated business income 1,186 31 1,216 
Income from farming and fishing 601 ~ 601 
Other investment income 917 15032 1,949 
Other income 451 1,671 _2,122 
TOTAL ASSESSABLE INCOME 27,050 4537 31,587 
Deductions from income 
Family exemptions 11555 -11,557 a 
Concessionary allowances 2,178 -596 1562 
13,736 -12,15% 1,581 


NET PERSONAL INCOME TAX BASE 13,315 16,690 30 ,005 


Note: All elements of the current tax base have been shown net of allowable 
deductions arising from that component of income. Thus currently 
assessable employment income is shown net of union dues deductible 
under current tax law and shown separately as personal deductions in 
tables published in 1966 Taxation Statistics. Similarly, investment 
expenses included in “other personal deductions" in published 
statistics have been deducted from other investment income currently 
assessable; stockholder deductions for depletion have been offset 
against dividends. Some figures do not add to totals because of 
rounding. 


Source: Table 7 above and Appendix L to this study. The amounts shown under 
the current tax base were obtained by aggregating from adjusted data 
for each of the 19,370 groups of tax returns in the 1966 Taxation 
Statistics sample as described in Notes 1 to 8 in Appendix A to 
Volume 6 of the Report. 
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reforms—namely, the allowance of extensive income averaging and the aggre- 
gation of incomes of all income recipients in a family unit—and also exclude 
the addition to the personal income tax base of capital gains realized by 
non-residents on Canadian real estate. The effects of these three additional 
base changes and of the extension of credit for corporate taxes to exempt 
institutions are shown in the latter part of Table 9. After all adjustments, 
it is estimated that taxes collected at the personal level in 1964 would have 
amounted to $178 million less under the Commission's proposals than under the 


current (1967) tax system. 


Revised estimates of the prorated effect of particular reforms on 
1964 direct tax revenues from tax returns classified by income are presented 
in Appendix H to this study. A summary of these revised estimates is pre- 
sented in Table 10. As a comparison of this table with Table 35-15 in 
Chapter 35 of the Report indicates, there are five major differences between 
the estimates presented in this study and those of the Report: (1) the 
effects of the decrease in personal income tax rates and of the reduced 
reliance on sales and excise taxes are $101 million and $145 million larger, 
respectively, because of the higher rates imposed on the current tax system 
by the December 1966 Budget; (2) the effect of bringing various currently 
untaxed elements of income accrued by resident individuals into the tax base 
is $26 million less because of the different estimates used; (4) tax reduc- 
tions resulting from changes in concessionary allowances are $28 million 
greater; (4) tax reductions of $9 million resulting from the deferment of 
taxes on cash distributions out of untaxed surplus were not previously in- 
cluded; and (5) taxes estimated to be allocable to non-residents are increased 
by $20 million as a result of the explicit estimation of taxes on capital gains 
realized on real property owned by non-residents. The estimated impact of 
certain other proposed reforms is changed by $5 million or less, partly as a 
result of the changed marginal rate resulting for some taxpayers from the 


change in tax base implied by the different assumptions. 


TABLE 9 
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TOTAL TAX REVENUE COLLECTED FROM INDIVIDUALS IN 196} 
UNDER THE CURRENT (1967) AND PROPOSED TAX SYSTEMS 


(millions of dollars) 


Gross tax before credits 
hax CLEC tS< 


Non-refundable credits 
Less: Unused credits 


Refundable credits 


PERSONAL INCOME TAXES AS ESTIMATED 
FROM TAX RETURN DATA 


Adjustments for excluded reforms: 


Effect of aggregating income 
in family units 


Effect on taxing capital gains 


realized on real property 
owned by non-residents 


Less: Effect of extension of 
income averaging 


TOTAL PERSONAL INCOME TAX REVENUE 


Allowance for the net effect of extending 


the corporate tax credit to certain 


tax-exempt intermediaries 


TOTAL TAX REVENUE COLLECTED AT THE 
PERSONAL LEVEL 


Under the 


Current System 


[i Aes 


2,870 


gk 


2,776 


2,776 


Under the 


Proposed System 
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Wyo 


4, 302 


2, 648 


Note: Current taxes include old age security taxes; all taxes are before 
All adjustments except for the effect 


abatements to the provinces. 


of taxing capital gains on real property of non-residents are as 
specified in Table 35-13 in Volume 6 of the Report. 


TABLE 10 


REVISED ESTIMATES OF THE EFFECTS OF DIFFERENT PROPOSED 
REFORMS ON 1964 TAX REVENUES 
(millions of dollars) 


tffect on Residents 


Net reduction in personal income tax rates -418 
Increase in the personal income tax base (excluding 
the effects of integration): 

Capital gains (less canital losses) 209 

Personal benefits attributable to individuals 110 

Investment income added to the tax base 206 

Gifts and bequests 220 

Transfer payments 67 811 
Additional deductions allowed in computing assessable income: 

Extension of loss carry-forward provisions and acceleration 

of capital cost allowances for new and small unincorporated 

businesses -8 

Employment expenses =137 LG 
Changes in the treatment of taxable corporate income: 

Integration of corporation and personal income taxes -189 

Additions to the integrated corporate tax base 64 

Deferment of taxes on cash distributions out of untaxed surplus -9 

Extension of the corporate tax credit to certain tax-exempt intermediaries =S0r= -184 
Changes in concessionary allowances: 

Replacement of dependent exemptions by tax credits -54 

Changes in allowances for medical expenses and removal of 

the special exemptions for the aged and infirm Pal 

Changes in the definition of charitable donations 42 

Allowances of educational tax credits -91 

Allowance of tax credits for working mothers 41 -127 
More liberal income averaging -60 
Aggregation of incomes in family units 45 
Changes in sales and excise taxes -270 

TOTAL CHANGE IN TAXES ON RESIDENTS -350 
Effect on Non-Residents 
Integration of corporation and personal income taxes 81 
Additions to the integrated corporate tax base 190 
Taxation of realized capital gains on real property 20 291 

TOTAL CHANGE -59 


Note: Some figures do not add to totals because of rounding. 


Source: Table 35-6 in Chapter 35 of the Report, Appendix H to this 


study, and Appendix A to Volume 6 of the Report. 
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Le Estimates of the Long-Term GNP 
Elasticity of Tax Revenues 


By “elasticity” of the tax system is meant the degree to which tax 
revenues grow as the Canadian gross national product (GNP) rises. 9/ To 
compare the long-term elasticity of the proposed tax system with that of 
the current tax system, projections were made of the revenue yield of both 
systems in 1965 and in 1970. These projections are based on the estimates 
presented in Table 11 of the rates of increase in the number of individuals 
filing tax returns and in the average incomes from different sources re- 
ceived by each taxpayer. To facilitate comparisons with estimates presented 
in the Commission's Report, the current tax system will first be defined as 
tax law enacted as of December 31, 1966; the effect of the tax rate changes 
proposed in the December 19, 1966 Supplementary Budget Speech will be dis- 


cussed later. 


In projecting the changes in personal income tax revenues associated 
with these changes in average income and total returns filed, it was assumed 
that each group of taxpayers in the 1966 Taxation Statistics sample would be 
equally affected by these changes. Family characteristics and deductions 
associated with these characteristics were assumed to be unchanged for each 
taxpayer, though aggregate deductions were of course increased as a result 
of the estimated increase in the number of taxpayers. Corporation tax re- 
venues were assumed to bear the same relationship to corporate profits as in 
1964. Gift tax revenues under the current tax system were assumed to increase 
in proportion to the estimated increase in income received as gifts. Sales 
tax revenues were assumed to change in proportion to changes in GNP under both 


the current and proposed sales taxes. 


The implications of these assumptions are shown in Table 12. As a 


comparison of this table with Table 5 indicates, the proposed tax system 
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TABLE JL 


PERCENTAGE INCREASES IN NUMBERS OF TAX RETURNS, 
IN AVERAGE INCOME FROM DIFFERENT SOURCES, 
AND IN GROSS NATIONAL PRODUCT IN 


1964-65 AND 1965-70 
1964-65 1965-70 
per cent per cent 


Increase in number of individuals 
filing tax returns 5.8 14.3 


Average increase in components of income 
for each taxpayer: 


Wages and salaries THO 23.4 
Income from self-employment CO 23.4 
Unincorporated business income 0.4 23.4 
Income from farming and fishing oyy rat te 
Corporate profits 3.9 23.4 
Rent, interest and miscellaneous 
investment income 4.9 23.4 
Increase in gross national product 9.7 ee oe 


Note: 


The rate of increase of the number of individuals filing tax returns 
is assumed to be the same as the rate of increase of the employed 
civilian labour force, obtained for 1964-65 from National Accounts 


Income and Expenditure, 1965 and projected to 1970 based on estimates 
presented in F. T. Denton and S. Ostry, Labour Force Projections to 
1970 (Ottawa: Economic Council of Canada, 1965) and on an assumed 
3.5 per cent unemployment rate in 1970. The average rate of increase 
in components of income for each taxpayer between 1964 and 1965 was 
assumed to be the same as the increase in the corresponding component 
of national income per capita of the labour force between those years 
(cf. National Accounts, 1965, Table 1). All income components were 
assumed to increase at the same rate as current-dollar GNP per capita 
of the labour force between 1965 and 1970. Current-dollar GNP in 
turn was projected assuming a 3.5 per cent unemployment rate, 1.5 
per cent inflation per year, labour force growth as estimated by 
Denton and Ostry, business fixed investment expenditures equal to 
14.5 per cent of GNP, and an 0.4 per cent decline per annum in 
average weekly hours worked. For further details of the underlying 
constant-dollar GNP projection, see T. A. Wilson and H. Lithwick, 
Sources of Economic Growth, a study published by the Commission. 


a 


TABLE 12 


PROJECTION OF THE TAX BASE AND REVENUE TO 1965 AND 1970 UNDER 
THE CURRENT (1966) AND PROPOSED TAX SYSTEMS 
(millions of dollars) 


Projection to 1965 Projection to 1970 


Under the Under the Under the Under the 
Current Proposed Current Proposed 
Tax System Tax System Tax System Tax System 
Taxable corporate income 4, 730 5,334 6, 674 7, 526 
srsonal Income Tax Base 
Employment income, including the professional 
or commission income of self-employed 
taxpayers 26,046 25,744 35, 545 35,209 
Corporate source income 481 2,724 656 3,712 
Unincorporated business income 1, 236 1,268 1, 687 1,746 
Income from farming and fishing 675 675 921 921 
Other investment income 991 2,143 15316 2,965 
Other income 468 2, 326 ak peti ilé 
TOTAL ASSESSABLE INCOME 29, 898 34, 880 ho, 644 47,931 
Deductions: 
Family exemptions 11,997 _ 13,268 _ 
Concessionary allowances he a4 i: me pe _2, 563 _1,878 
1,27. —_1, 656 15,851  _1,878 
TAXABLE INCOME 15,626 33, 22h 2h, 813 46,052 
ix Revenues 
Corporation income tax 2,092 2,667 2,951 3,763 
Personal income tax 3,170 By 52 5,234 5,407 
Gift and estate taxes 164 _ 283 _ 
Sales taxes SPY 4 JB FGL5 2,472 23279 
TOTAL TAX REVENUES 7,178 hh 10,940 11, 449 


te: All taxes are before abatements to the provinces and include the old age security tax, 


The changes in 


corporation and sales tax revenues were calculated by applying the estimates of changes in corporate 
profits and GNP presented in Table 11 to 1964 revenues both for the current taxes and for the proposed 
taxes. Personal income tax revenues and gift tax revenues were calculated by applying the estimated 
changes presented in Table 11 to data for each group of tax returns in the 1966 Taxation Statistics 
sample and then estimating tax base changes from these adjusted sample data; for details see the 
listing of subroutine XTRAP in Appendix A. The precise input data are as specified in Appendix C 
(including the modifications shown in Table C-2) and in the first colum of Table E-4 of Appendix E; 


output is produced by BASKLS with ITABSW(3) set to 3. 


The program output was adjusted to reflect 


the effects of income averaging, aggregation into family tax units, taxation of non-residents' capital 
gains on real property, and deferment of tax on corporate source income attributable to trustees of 
Registered Retirement Income Plans on revenue from the proposed system; the adjustment was identical 


to that in Table 9 above. Some figures do not add to totals because of rounding. 
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would yield a larger increase in tax revenues than would the 1966 version 

of the current tax system. Associated with the 9.7 per cent increase in 

GNP between 1964 and 1965, resulting from the economy's recovering to full- 
employment levels, is a tax revenue increase which would have been slightly 
larger under the proposed tax system than under the current tax system. The 
increase would be $891 million under the proposed system and $811 million 
under the current (1966) system. The longer term growth in full-employment 
GNP between 1965 and 1970 projected in Table 11 would result in a further 
increase in tax revenues which would again be greater under the proposed tax 
system than under the current tax system. The net effect of these increases 
is that the 1970 full-employment revenue yield of the tax system under the 
Commission's proposals would be roughly $500 million greater than the pro- 


jected revenue from existing taxes at 1966 rates. 


It must be emphasized that the projections of tax revenues presented 
in Table 12 are based on a more aggregative level of analysis than could be 
used for 1964, and that the projections to 1965, as well as to 1970, are 
necessarily less accurate than the estimates of what the long-term revenue 
surplus would have been in 1964. These projections make no allowances for 
the effects of any reverse or forward shifting that might result from the 
proposed tax changes; furthermore, they make no allowance for the effects of 


the likely reactions of investors described in Chapter 57 of the Report. 


The growth in the long-term revenue surplus produced by the Commis- 
sion's proposals results somewhat more from GNP growth than from changes in 
the GNP-elasticity of tax revenues. This can be seen by examining the pro- 
jected growth in tax revenues between 1965 and 1970 shown in Table 12. By 
assumption, the GNP-elasticities of the sales tax and the corporation income 
tax are unity under both the current and proposed systems. The implied 


overall GNP-elasticity of the personal income tax is 1.27 under the current 
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tax system and 1.31 under the Commission's proposals. Were the GNP elasti- 
cities of all taxes unchanged by the proposals, the projected 1965-70 growth 
in the long-term revenue surplus resulting from the Commission's proposals 


would be $134 million rather than $253 million. 


The estimates presented in Tables 5 and 12 document the claim made 
in Chapter 35 of the Report that the growth in tax revenues would be greater 
under the proposed tax system than under currently enacted tax law. This 
definition of the current tax system excludes the effect of changes in the 
tax rates proposed in the Supplementary Budget Speech of December 19, 1966, 
which were not yet enacted as of the end of 1966. The tax rate changes 
enacted in 1967 consisted of an increase in the rate of taxation on manu- 
facturers' sales from 11 per cent to 12 per cent and of an increase from 
$3,000 to $6,000 in the amount of the taxable income of individuals subject 


to the 4 per cent old age security tax. 


Estimates of the revenue yield of the current tax system under the 
1967 tax rates are presented in Table 13 for 1964, 1965 and 1970. The changes 
in tax rates would have increased total tax revenues from the current tax 
system by $235 million in 1964 and by $274 million in 1965, and would have 
increased projected tax revenues in 1970 by almost $460 million. The long- 
term elasticity of the personal income tax under the current tax system (as 
estimated from the projected 1965-70 growth in tax revenues) would be in- 


creased from 1.27 to 1.29 by the changes in tax rates. 


The additional revenue raised by the tax rates proposed in the 
Supplementery Budget would make the long-term revenue yield of the current 
tax system virtually equal to that of the Commission's proposals as of 
their introduction (say, in 1969), only gradually becoming less as gross 


national product grew. The revenue lost in the transitional period 
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(estimated in Table 35-16 of the Report) would consequently have to be 
financed through additional taxes if it were desired to maintain tax re- 


venues at a level equal to that yielded by the current tax system. 


Again, it must be emphasized that only the direct revenue effects 
of the tax changes have been considered here. Because the tax changes 
would engender a higher rate of growth in full-employment levels of gross 


national product, this higher growth rate would yield still higher tax 


revenues. 
TABLE 13 
PROJECTION OF THE REVENUES YIELDED BY THE CURRENT 
(1966) TAX SYSTEM AS MODIFIED BY THE CHANGES 
IN TAX RATES PROPOSED IN DECEMBER, 1966 
(millions of dollars) 
1964 1965 1970 
Corporation income tax 1,941 2,092 2,951 
Gift and estate taxes 143, 164 283 
Personal income tax QSTTre 3,285 5 467 
Sales and excise taxes 1,742 1,911 2,697 
TOTAL 6,602 7,452 11,398 


Note: As in Table 12, except that program control parameters are 
as shown in the third column of Table E-4 in Appendix E 
rather than in the first colum., 


To put this in other terms, the higher growth in tax revenues resulting from 
adoption of the Commission's proposals would come from two sources: (1) the 
effect of the higher GNP~elasticity of tax revenues from the proposed tax 
system, and (2) the effect on tax revenues of the higher rate of growth of 
potential GNP that would result from adoption of the proposed tax system. 


Only the first effect has been discussed in this section. 


De 


34 The Incidence of Tax Changes 
On Different Taxpayers 


The estimates of revenue changes presented in Chapter 45 of the 
Report are based upon the assumptions specified in Table C-4 of Appendix C. 


Incidence estimates based on these assumptions are presented in Chapter 36 


of the Report. 10/ 


Revised estimates of the incidence of direct tax changes correspond- 
ing to the updated revenue estimates presented above in section 3.2 are 
presented in Tables 14, 15 and 16. These tables are revisions of Tables 36-4, 
36-5 and 36-7 in Chapter 36 of the Report. Bay, Detailed incidence estimates 
on an updated basis for individuals classified by age/occupation/ sex class 
as well as by income are presented in a companion study. 12/ As in Chapter 35, 
"income" classes in all cases are defined in terms of net assessable income 
under the Commission's proposals, that is, as total income assessable less 


the deductions from income allowed under the Commission's proposals, 


While slight differences in the pattern of incidence by income 
classes arise as a result of the changed estimation of attributable bene- 
fits, the major differences between the results presented in Table 36-4 of 
the Report and those shown in Table 14 arise from the effect of the increase 
in old age security taxes on taxpayers currently with taxable income, in 
excess of $3,000. (Because of family exemptions and additional personal 
deductions allowed under current tax law, as well as because of the lesser 
proportion of comprehensive base income assessable under current tax law, a 
currently taxable income of $3 , 000 would on the average be equivalent toa 
net assessable income under the Commission's proposals of something between 
$4,300 and $6,200, the precise amount depending on family status.) More- 


over, because this increase is limited to a maximum of $120 per taxpayer and 
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TABLE 14 


REVISED ESTIMATES OF THE AVERAGE INCIDENCE 
OF CHANGES IN DIRECT TAXES ON RESIDENT 
INDIVIDUALS IN EACH INCOME CLASS 


Number of Average 
Income Taxpayers Comprehensive 
Class _ in Class Base Income 
~ 
Less than $1,000 755,445 Ep) 
$1,000 - 1,999 874,179 e556 
2,000 - 2,999 1,129, 374 2,549 
3,000 - 4,999 Iig11.65 2:20 55625 
4,000 - 4,999 1,003, 708 4,726 
5,000 - 5,999 632, 743 5,754 
6,000 - 7,999 649, 670 jee 
8,000 - 9,999 225, 262 9, 363 
10,000 = 11,999 84, 375 11, 564 
12,000 - 14,999 85,157 i152 
15,000 - 19,999 64, 984 18,02 
20,000 - 24,999 29, ho2 23,199 
25,000 - 34,999 29,726 30,032 
35,000 - 49,999 19,183 43,053 
50,000 - 74,999 10, 663 61,491 
75,000 - 99,999 3,912 88, 593 
100,000 -149,999 3,039 121, 862 
150,000 -199,999 981 174, 608 
200,000 - 299,999 848 241,031 
300,000 or more 625 561,918 
ALL CLASSES 6,719, 445 4714 
Note: All taxes are before abatements to the provinces. 


corporate income taxes, and attributed taxes on gifts and bequests. 
the attribution of tax deferments on the investment income of Registered Retirement Income Plans. 
classes are defined in terms of net assessable income under the Commission's proposals. 


Percentage of 
Cormrehensive 
Base Income 
Currently 
Assessable 


Average Direct Taxes 


Current 


~ 
12 
50 


140 


Vege 
2, 262 
3,243 
4, 687 
6, 804 

10,856 

17,079 

6,172 

37, 624 

55,679 

Tor oos 

193,128 
D8, 


Proposed 


~ 


1,659 
eeo fh 
Bree 
4,746 
6,961 
11,994 
19, 828 
32,299 
48, 689 
Th, 756 
107, 667 
265, 504 
543 


Current taxes include old age security taxes, attributed 
As in Appendix H, proposed taxes include 
Income 


Income 


Less than $1,000 


$1, 000 
2,000 
4,000 
4,000 
5, 000 
6,000 
8,000 

10,000 

12,000 

15,000 

20 , O00 

25,000 

35,000 

50, O00 

75,000 

100, O00 
150,000 


200 , 000 


1,999 
2,999 
Dy 999 
ee) 
eee 
Teo? 
9,999 
11,999 
14, 999 
1B Piece 
24,999 
34,999 
49,999 
Th, 999 
Sieh 
149, 999 
a7>29 


299, 999 


400,000 or more 


ALL RESIDENTS 


Note: 


in each class by the taxnayers 


aT 


TABLE 15 


REVISED ESTIMATES OF AVERAGE EFFECTIVE RATES OF 
FEDERAL DIRECT TAXES FOR RESIDENT INDIVIDUALS 


Average Tax Rates on Comprehensive 


Current 
ers Se 
ees 
ee) 
Deo 
ae 
7.9 
8.9 
10.8 
13,2 
14.9 
16.0 
18.0 
26e2 
2257 
25.2 
27.8 
29.55 
30.9 
NaS) 
2256 
34.5 


kes ff 


total comprehensive income. 


Base Income 


Proposed 


Other notes as in Table 1. 


Percentag 
Change in 


Direct Ta 


% 


=i «il 
=o 


-21.9 


Zao) 
10.5 
16eL 
23.4 
29.4 
34.3 
37.0 
37.0 


-1.8 


Average effective rates of tax are calculated by dividing total direct taxes paid by or attributable to taxpayer 
The reduction would be more than 100 per cent for a 
number of individuals in the bottom income class because of the attribution of some credits for corporation inco 
tax to trustees of Registered Retirement Income Plans. 
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so is regressive for taxpayers with currently taxable income in excess of 
$6,000, its primary impact is limited to middle-income taxpayers. The 
average increase in direct taxes resulting from the budgeted increase is 


as follows for taxpayers in several income classes: 


Average Change in OAS Tax Proposed 
in December 1966 Supplementary Budget 


Increase Percentage 
Income in Taxes Increase 
$5,000 - 5,999 > 3.0 
6,000 - 7,999 4h 6.1. 
8,000 - 9,999 100 8.7 
10,000 - 11,999 120 ‘hen 
12,000 - 14,999 120 bie 
15,000 - 19,999 120 5.20 


As a result of this increase and of the effect of the changes in 
assumptions, the income range for which direct taxes are on the average 
reduced under the Commission's proposals is extended from up to $10,000 to 
up to $15,000. Moreover, the range of incomes over which direct taxes are 
on the average not significantly increased is extended from up to $10,000 
to up to $25,000. The extent to which taxes are increased on the average 
for incomes in excess of $75,000 is, however, little changed. The average 


change in direct taxes by broad income class is as follows: 


Average Change in Direct Taxes Resulting 
from the Commission's Proposals 


Decrease Increase Percentage 
Income in Taxes in Taxes Change 
Less than $5,000 55 _ -18.5 
$5,000 - 9,999 67 ~ - 9.2 
10,000 - 14,999 yy - - 2.2 
15,000 - 24,999 _ 28 0.8 
25,000 - 49,999 _ 540 6.5 
50,000 or more _ 8,730 2fe> 
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The change shown for middle-income taxpayers in this table may be compared 
to the following results shown in Chapter 36 of the Report: a decrease of 
$22 for taxpayers with incomes of $5,000 - $9,999, an increase of $74 in 
incomes between $10,000 and $14,999, and an increase of $142 for incomes 


between $15,000 and $24,999. 


Revised estimates are provided in Appendix H to this study of the 
data which are presented in Appendix C to Volume 6 of the Report; these 
estimates show the changes in direct taxes resulting from each of the major 
reforms recommended by the Commission for individuals in each income class. 
Corresponding estimates of the changes in components of the personal income 
tax base resulting from the joint effect of all proposed reforms are shown 
in Appendix L to this study, together with total personal income taxes, 
corporation income taxes, and gift and estate taxes allocable to indivi- 
duals in each income class. Current gift and estate taxes are attributed 
to the recipients of gifts and bequests in accordance with estimates of the 


amount of income obtained from this category by different individuals. 13/ 


Since direct taxes are on the average reduced over a larger income 
range as a result of the higher current taxes resulting from the increases 
announced in the December 1966 Budget, the number of individuals who would 
have their taxes reduced as a result of the Commission's proposals would be 
larger. Estimates of the distribution of taxpayers by percentage change in 
direct taxes are shown in Table 16, The number of individuals whose taxes 
would be changed by more than 15 per cent as a result of these proposals 


is estimated to be as follows: 
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Numbers of Taxpayers for Whom 
Direct Taxes are Direct Taxes are Direct Taxes are 


Decreased by Changed by Increased by 
Income More than 15% Less Than 15% More Than 15% 
Less than $5,000 F214 eoT 1,491,505 173,023 
$5,000 - 9,999 618,489 790,051 99,185 
10,000 - 14,999 18,252 130,205 21087 
15,000 - 24,999 1,709 79,345 15,352 
25,000 - 49,999 176 35,898 12,855 
50,000 or more -- 7,119 12,949 


All in all, over 3.8 million taxpayers—more than one half of all taxpayers— 
would have direct taxes paid by or attributable to them reduced by more than 

15 per cent. This estimate compares to the estimate of 4.1 million taxpayers 
cited in Chapter 36 of the Report. Of these, more than 1.1 million would pay 
no direct taxes even though direct taxes are currently paid on income attri- 

butable to them. Somewhat over 330,000 taxpayers would have direct taxes 


attributable to them increased by more than 15 per cent. 


All estimates of changes in taxes for individuals in different income 
classes discussed in this section have up to this point been concerned only 
with direct taxes. The incidence of sales taxes has been discussed in 
Chapter 36; since the increase in sales tax rate proposed in the December 
1966 Supplementary Budget would simply increase all federal sales taxes 
paid by the same proportion, it is easy enough to calculate the effect of 
this increase. Updated estimates are presented in Appendix I to this study, 
which also extends the estimates presented in the Report to provide more 


detailed incidence estimates for families with incomes over $10,000. 


Table 17 presents estimates of the incidence of changes in direct 
taxes and sales taxes combined on families in different income classes. 
These estimates are based on assuming average direct taxes attributable to 
families in each income class to be the same as the average direct taxes 


attributed to all taxpayers in this class, even though the combined effect 
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TABLE 17 


REVISED ESTIMATES OF THE CHANGE IN SALES 
AND DIRECT TAXES COMBINED FOR FAMILIES 
IN DIFFERENT INCOME CLASSES 


Average Current Tax Average 

Income Direct Sales Change Percentage 

Class _ Taxes SS “= in Taxes es 
Less than $2,000 33 87 120 -31 -25.8 
2,000 - 2,999 140 PS? 297 -56 -18.9 
9 OOO Fm 5 252 rae Nk 483 -84 -17.4 
4,000 - 4,999 376 275 651 -113 -17.4 
5,000 - 6,999 601 379 980 -130 -13.2 
(ELL 9,999 978 549 Led 5205 act) 
10,000 - 11,999 1,722 553 2.215 -87 -3.8 
12,000 - 14,999 2,262 614 2,876 -17 -0.6 
15,000 - 19,999 3,243 707 3,950 ai 0.8 
20,000 - 24,999 4,687 745 5,432 232 4.3 
25,000 - 49,999 9,295 9o7 10,254 786 TiO 
50,000 and over 31,901 2,400 34,301 9,019 26.3 
ALL CLASSES 553 293 846 -55 -6.5 


Note: Average direct taxes attributable to families in each income class 
are assumed to be the same as the average direct taxes attributable 
to all taxpayers in that income class. Current taxes include old 
age security taxes; all taxes are before abatements to the provinces. 
For other notes see Appendix I. As in other incidence tables, the 
effect of the allowance of income averaging and of aggregating 
incomes within each family unit has not been reflected in the 

above figures. 


Source: Table 14 and Appendix I. 
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of aggregating incomes in each family unit and taxing the aggregate income 
under the family rate schedule instead of the rate schedule for unattached 
individuals will be to reduce taxes somewhat for lower- and middle-income 


families and increase taxes for upper-income families. 


It should be noted that the estimates of incidence of sales taxes 
among families with incomes over $10, 000 are less accurate than the corres- 
ponding estimates for families with incomes below $10,000; for this reason, 
all families with incomes over $10,000 were lumped together in tables pre- 
sented in the Report. Nevertheless, the greater detail shown for families 
over $10,000 in Table 17 shows a substantially different incidence of all 
taxes combined on families with incomes below $25 , 000 than on families with 
incomes over this amount. This pattern would not be materially changed were 
a different set of reasonable assumptions to be used in the calculations 


shown in Appendix I. 


a5 The Incidence of Tax Changes 
On Income Components 


Because the effects of the Commission's recommendations on taxes 
paid by individuals vary widely, depending on the composition of assessable 
income attributable to each individual, it is necessary to compute estimates 
of the incidence on particular components of income of the tax changes re- 
sulting from the proposed returns in order to analyze the implications of 


these changes for economic decisions and hence for aggregate economic growth. 


Two types of analysis of the effects of the Commission's proposals 
on the taxation of income components have been performed: (1) preparation 
of detailed examples showing tax changes for individuals in different in- 


come and family situations with income solely from either wages and salaries 
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fas in Appendix I to Volume 3 of the Report) or corporate sources (as in 
Appendix M to Volume +); and (2) analyses of the 1964 tax return sample to 
obtain average effective tax rates (and average effective marginal rates ) 


for each major component of income. The latter are presented in updated 


form in a companion study. 1)/ 


Updated versions of Appendix I to Volume 3 and Appendix M to 


Volume 4 are presented as Appendices J and K to this study. 
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The selection of the sample is described in detail in 1966 Taxation 


Statistics, Part One—Individual Income Tax Returns in 1 
Ottawa 1: Queen's Printer, 1 wien Ils 


In addition, it should be noted that some errors found in the 
programmed calculations were eliminated. These errors consisted 
of (1) incorrectly setting FRET to zero before entering OPKDED, 
(2) failing to multiply ASS(27) by XN in line BSDJ1170, and 

(3) failing to miltiply ASS(26) by XN in line ADJF1880. These 
errors may be replicated if desired by setting ISW(10) to unity. 


The estimates are obtained using the assumption parameter values 
specified in Table C-1. Based on these assumptions, attributable 
benefits amounted to $531 million in 1964, of which top employee 
benefits amounted to $33 million, other employee benefits amounted 
to $370 million, attributable personal expenses deducted under 
current tax law by self-employed professionals and commission 
salesmen amounted to $90 million, and additional attributable 
personal expenses deducted under current tax law in computing 
income from unincorporated business sources amounted to $38 
million. Cf. Table 35-7 in Chapter 35 and Note 29 in Appendix A 
to Volume 6 of the Report. 


The ratio of dividends received by individuals not required to 
file tax returns to total dividends reported on individual tax 
returns was estimated to have been roughly 1/60 in the United 
States on the basis of 1958 data by D. M. Holland, Dividends 
under the Income Tax (Princeton: Princeton University Press, 
1962), Dp. 65. The estimate obtained by applying this fraction 
to the $451 million of dividends reported on 1964 tax returns 
by Canadian individuals was adjusted to reflect the different 
filing requirements and the greater incentives under Canadian 
tax law to transfer investment assets to wives. No attempt was 
made to adjust this figure to reflect the smaller proportion of 
income received as investment income by low-income individuals 
in Canada. 


The estimates imply that unreported dividends amounted to an 
average of 13.2 per cent of reported dividends for all 
individuals with taxable incomes less than $10,000, which 
probably overstates actual under-reporting by a considerable 
margin. This compares with an estimated average under-reporting 
equal to between 50 per cent and 90 per cent of reported 
dividends for those United States individuals who only partially 
reported dividend income in 1959 and with adjusted gross income 
of $7,000 or less. However, this under-reporting was the equiva- 
lent of roughly 5 per cent of dividends reported by all 
individuals in that income class. Cf. Holland, op.cit., 

Table 21 and also pp. 108-109. 
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Under the Commission's recommendations cash distributions out of 
untaxed surplus would be regarded as a return of capital and 
would result merely in a reduction of the cost basis of the 
recipient shares. Such cash distributions would consequently 

be subject to tax only upon disposition of the shares. In making 
the estimates presented in Volume 6 of the Report, it was assumed 
that there would be no net deferral of tax on distributions out 
of untaxed surplus; cf. Note 22 in Appendix A to Volume 6. 


Cash distributions out of untaxed surplus were assumed to amount 
to 10 per cent of total cash dividends received. It was estimated, 
based on data presented in the Report and in 1966 Taxation 
Statistics, Part Two, that untaxed corporate income attributable 
to resident individuals under the Commission's proposals would 
amount to $270 million, of which somewhat under $180 million 
would be allocable to large corporations. The estimated fraction 
of distributions made out of untaxed surplus was made taking into 
account the larger dividend payout ratios of larger firms and the 
concentration of a significant portion of these untaxed amounts 
in a relatively small number of firms. 


It should be noted that this change in the total additional tax 
base attributable to individuals who filed tax returns in 1964 
results partly from the fact that certain additions to the tax 
base not attributable to such individuals were included in the 
totals presented in Table 35-10 of the Report. These excludable 
additions include the following: (1) unreported dividends and 
allocated taxed corporate retained income attributable to resident 
individuals not filing tax returns in 1964 estimated to amount to 
$9 million and $38 million, respectively; (2) retained taxed 
corporate retained income allocable to resident individuals which 
was assumed not to be allocated to shareholders, estimated as 

$64 million; and (3) capital gains (net of capital losses), 
realized on real property owned by non-residents, assumed to 

have amounted to $65 million. 


More specifically, the GNP-elasticity of tax revenues is defined 
as the ratio of the percentage change in tax revenues occurring 
over any period to the percentage change in GNP over the same 
period. 


The estimates presented in Tables 36-4 and 36-7 of Chapter 36 for 
all individuals filing tax returns in 1964 are derived from the 
complete data file with control parameters specified in the first 
column of Table E-4 of Appendix E and with ITABSW(3) = 1. The 
estimates presented in Tables 36-8 and 36-9 are derived from 
exactly the same input except that KCHNGE is set to 4 instead 

of <6 1. 


The revised estimates presented in Tables 12 through 14 are derived 
from the complete data file using the modified assumptions specified 
in Table C-1 and the control parameters specified in the third 
column of Table E-}. 
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J. Bossons, Who Benefits and Who Pays: The Incidence on Different 


Income and Occupation Groups of Income Tax Changes Resulting from 
the Commission's Recommendations, a study published by the 


Commission. Information on the changes in components of the tax 
base and in each major form of direct tax for individuals in each 
income and age /occupation/sex group are presented in J. Bossons, 


Components of Taxable Income for Resident Individuals, another 
study published by the Commission. 


The basis for these estimates is described in Note 32 in Appendix A 
to Volume 6 of the Report. The estimates of aggregate gifts and 
bequests are substantially more reliable than the estimates of the 
distribution of this aggregate over individuals. For individuals, 
gifts and bequests are assumed to be an increasing function of 
currently taxable income and of the fraction of income obtained 
from estate income and fixed-income investments; the precise 
distribution function is described by the listing of subroutines 
BASADJ and GIFTS in Appendix A to this study. 


J. Bossons, Changes in Direct Taxes on the Components of Income, 
a study published by the Commission. 


CHAPTER 4 
FUTURE EXTENSIONS 


This chapter contains a number of remarks about some additional 
applications for which the General Income Tax Analyzer potentially is a 
useful tool. It is meant to be neither an exhaustive list nor a program; 
its primary purpose is to discuss some of the major remaining deficiencies 


in the revenue and incidence analyses which could be eliminated. 


It should be noted that the accuracy of the assumptions stated in 
Appendix C and implied by the logic of the programs listed in section 2.3 
of Appendix A to this study has not been discussed in this study; these 
assumptions are briefly evaluated in Appendix A to Volume 6 of the Report. 
Further testing of these assumptions against existing data will yield 
improved specification of the relationship between currently assessable 
income and comprehensive base income; the additional data which would be 
generated with the implementation of the Commission's recommendations 
would give rise to augmented opportunities for such testing. The concern 
of this chapter is with deficiencies in the scope of the analyses which 


have been made, rather than with their accuracy. 


Two primary deficiencies are pointed out: the fact that two 
important recommendations have not been incorporated with the GITAN 
analyses, and the crudeness of the elasticity estimates which have been 


made. Further work on these topics would be profitable. 
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4,1 Measuring the Effect of Omitted Reforms 


Numerous reforms proposed by the Commission have of course been 
omitted from the set of reforms analyzed in the current specification 
of the income tax analyzer. Most of these are of minor and offsetting 
significance in their effects on aggregate tax revenues and on the incidence 
of the tax changes resulting from the Commission's proposals. However, two 
omitted reforms are of material importance, especially in their effects on 


incidence: the allowance of income averaging, and the aggregation of 


incomes in each family unit. 


The incorporation of each of these omitted reforms in the income tax 
analyzer would require additional data. To analyze the effect of different 
income averaging schemes, it would be necessary to have tax returns for a 
suitable number of years prior to the current year for each of the individuals 
included in a sample. Given that the tax return data for each prior year 
were sufficient to provide the elements of the KLAS and SUM arrays defined 
in Appendix B to this study, it would then be a simple matter to estimate 
taxable income and taxes under the Commission's proposals in each year 
before averaging and then applying a specified averaging scheme to these 
data. Alternatively, if only aggregate assessable income were available 
for each prior year for each individual, taxable income and taxes under the 
Commission's proposals in each prior year could be estimated given assumptions 
regarding the average elasticities of income components to total income for 
individuals in different income and age/occupation/sex classes or, more 


simply, for all individuals combined. 


To analyze the effect of aggregating incomes with family units, it is 


necessary either to obtain a sample of families for whom the tax returns of 


vat 


all income recipients are available or to use data on the joint distribution 
of incomes of multiple income recipients to project joint tax return data 
for a family from the data contained in the sample of individual tax returns. 
Data on the joint distribution of incomes of mltiple income recipients in 
families are presented in Appendix G, which is derived from a special 
matching run made by the Department of National Revenue on their master 
name/address file for all individuals who filed tax returns in 1964. Given 
such data and a sample of individual tax returns classified by "preliminary 
family status" as defined in Appendix B, it would be possible to merge the 
appropriate number of selected pairs of individual tax returns from matchable 
"preliminary family status" files. By merging returns only after they have 
been separated by preliminary family status, it is possible to preserve a 
considerable amount of information concerning intra-family differences in 
occupation and increase composition which is contained in the sample of 
individual tax returns. The types of family tax units which can be 
constructed from the 1966 Taxation Statistics sample using the data 
summarized in Appendix G are shown by the resultant classification shown 

in Table 18. A merging program could be constructed which would have as 
output a file of constructed family units containing between 1 and 4 tax 
returns; each family tax unit and mltiple income recipients would then be 
classified by the income family and dependant-claiming status of the tax 
unit and by the age/occupation/sex class of the family head. The output 
file could then be used together with a modified form of the programs 


presented in Appendix A to generate output on an aggregated tax unit basis. 


The importance of performing this type of analysis is indicated both 
by the examples presented in Appendix I to Volume 3 of the Report of the 


varied incidence of tax changes among families with different ratios of a 


fe 


spouse's income to total family income and by the data on the number of 
families involved presented in Table 19. Roughly one quarter of all 1964 
tax returns were filed by individuals in families in which at least one 


other individual filed a return. 


TABLE 1 


CLASSIFICATION OF MERGED TAX UNITS BY FAMILY 
STATUS AND NUMBER OF INCOME RECIPIENTS 


Family Status Occupation of Number of Children 
Class of Tax Unit Spouse Receiving Income 

1 family not working O 
2 family not working 1 
3 family not working 2 
\ family working 0 
5 family working a 
6 family working 2 
7 single 

individual = “< 


Note: In the output of the proposed merging program, the category 
entitled "children receiving income" would not include (1) 
children under 21 who opted to be included in the family even 
though earning some income and living away from home or (2) 
children over 21 who as full-time students opted to be taxed 
as a member of the family unit. In these two respects the 
classification scheme of this table differs from that proposed 
by the Commission. In both respects, this difference would 
understate the revenue yielded by aggregating income of these 
children into total income of the family unit. 
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TABLE 19 


FAMILIES WITH MORE THAN ONE INCOME RECIPIENT 
FILING A TAX RETURN IN 1964 


Assumed Number of 
Number Returns 
of Tax Accounted 
Income Recipients Number of Returns for by 
In Family Families Per Family Category 
Spouse receiving income; 
No children filing tax returns beau 2 1,116,506 
One child filing a tax return WL 77L 3 134.4313 
Two or more children filing 
returns 8,056 in 32 22h 
TOTAL 611,080 1,283 ,043 
Spouse not receiving income: 
One child filing a tax return 166 ,922 2 333 844 
Two or more children filing 
returns 92905 ) 119 , 709 
TOTAL 206 ,825 453 553 
TOTAL FOR ALL FAMILIES WITH 
MORE THAN ONE INCOME RECIPIENT 817,905 1,736,596 


Note: Income recipients are defined to be any individuals filing a 
tax return, A spouse is defined to be any individual over el 
filing a tax return who has the same surname and address as 
another taxpayer over 21 but is of opposite sex. Children are 
defined as any individual 21 years old or younger having the 
same surname and address as another taxpayer who is older than 
el. 


Source: Appendix Ge 


Th 


Lee oved Specification of Elasticity Mode 


The critical assumption made in the analyses underlying the elasticity 
estimates presented in section 3.3 of this study was that the percentage 
change in income from any component received by each individual over a 
period was equal to the percentage change in average per capita income 
from that component for all individuals. If all income components were 
assumed in the aggregate to grow at the same rate as GNP—as indeed was 
assumed for the 1965-70 projection=the assumption of equal percentage 
changes in each income component for all individuals would be equivalent 


to assuming that the relative distribution of incomes was unchanged. 1/ 


Changes in the distribution of incomes over time can be regarded as 
arising both from changes in the composition of aggregate income and from 
changes in the distribution of each component of income. In fact, however, 
changes in the distribution of income are generated by such variables as 
the age composition of the income-receiving population, changes in labour 
force skills, and changes in the distribution of production by region and 
industry, as well as by the effect of growth in per capita output; whether 
it is more useful to examine the distribution of income components given 
predetermined aggregate income shares than to specify the distribution of 
each component de novo is an open question. It would be valuable to 
specify and test models relating average income component levels for tax- 
payers classified by income and age/occupation/sex class to exogenous 
variables such as changes in average skills and training as well as to 
aggregate variables such as the change in that component for all individuals. 
Such analyses could be based upon historical data published in Taxation 
Statistics for successive years or (preferably) upon a panel of tax returns 


for the same set of individuals in successive years. 


( 


These general comments apply both to long-term changes in the 
distribution of incomes given full employment and to short-term changes 
over the course of the business cycle. It is of obvious interest to 
examine the short-term GNP elasticity of tax revenues and so to analyze 
the effect of changes in tax structure upon the built-in stabilizing 
properties of the tax system. To do so, however, it is of critical 
importance to develop an improved model of the cyclical behaviour of income 


shares at a disaggregated level. 2/ 


REFERENCES 


1/ It should be emphasized that this assumption was applied only to 
incomes as currently assessed. Because of the many non-linearities 
in the assumed relationship between the components of currently 
assessable income and the corresponding components of comprehensive 
income, the relative distribution of comprehensive incomes did not 
remain unchanged. 


2/ A model of the cyclical behaviour of aggregate income shares is 
presented in E. Kuh, "Income Distribution and Employment Over the 


Business Cycle," in The Brookings Quarterly Econometric Model of 
the United States (Chicago: Rand McNally, 1965), pp. 227-270. 
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Data input 


READIN 
SPREAD 
EDIT 
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1. GITAN = PART 1 


lel TAX CALCULATION FUNCTIONS 


FUNCTION TAXCOM( ACCINCre CFROMT» MARTAL*® DEP» IwWIFEs RATE? 
1 BOTTOMe NCLASS* CREDe TXCRED ) 


SUBROUTINE TO COMPUTE TAX LIABILITY (VERSION OF 16/MAR/66) 


REVISED FOR PRI-RATE STRUCTURE* 11 JUNF/66 
ARGUMENTS 
ACCINC = ACCRUED TAXABLE INCOME 
CFROMI = NON=FAMILY TAX CREDIT 
MARTAL = MARITAL STATUS 
IF = Oe SINGLE INDIVINUAL 
IF = 1¢ MARRIED COUPLE wITHOIIT DEPENDANTS 
IF = 20 FAMILY wITH CHILDREN 


102 


103 


NOTE THAT MARTAL DEFINES SCHFUULE USED 

VEP = NUMBER OF DCEPENDENTS 

IWwWIFE = Ool92.- IF = le BOTH SPOUSES WORKING 

IF = 20 BOTH SPOUSES WORKING AND SUPPORTING 
PRE}SCHOOL CHILDREN 

RATE = TAX RATE IN BRACKET 

BOTTOM = BOTTOM OF INCOME BRACKFT 

NCLASS = NUMBER OF INCOME BRACKETS 

CREO = TAX CREDITS FOR INDIVIDUALS» MARRIED COUPLES» 
DEPENDENTS» wORKING WIVES WORKING MOTHERSe AND FIRST CHILD 
PLUS AMOUNTS OF INCOME wHICH ARE TAXED AT A ZERO RATE FOR FACH 
VALUE OF MARTAL 

TXCRED = TAX LOSS CARRY FORWARN (CIF APPLICABLE) 


DIMENSION RATE (3025) 0 BOTTOM(25)° CRED(25) 
TXCRED = 0-0 

K = MARTAL + 1 

NN = NCLASS + 1 

XMTINC = CRED(MARTAL+8) 

BOTTOM(NCLASS + 1) = 1.0635 

TAXCOM = 0.0 

IF (ACCINC eLEe XMTINC) RETURN 

DO 104 J=2e NN 

JJ=J-l1 

xX = BOTTOM(JyU) 

IF (XMTINCeGT.-BOTTOM(JJ)) X = XMTINC 
IF ( ACCINC = BOTTOM(J) ) 1020¢1Nn2s 103 
DELTA = ACCINC = X 

IF (DELTA elEe O-) GO TO 1043 

TAXCOM = TAXCOM ¢ DELTA*RATE (Ke JU) 

GO TO 1041 

DELTA = BOTTOM(J) = Xx 

IF (DELTAeLE.0-) GO TO 104 


TxcmMnnoo 
TXCMN010 
TXCMN0270 
TXCM0030 
TXCMNN4N 
TXCMNOSO 
TXCMN060N 
TXCMN070 
TxCma0aRO 
TXCMN0S9O 
TXCMN100 
TXxCMN110 
TXCMN120 
TXCMN130 
TXCM0140 
TXCMN150 
TXCM0160 
TXCMN170 
TXCMNLAO 
TXCMN190 
TXCMN200 
TXCM0210 
TXCMN220 
TXCMN230 
TXCMN24UN 
TXCM0N250 
TXCMO260 
TXCMN270 
TXCMON2A0 
TXCM0N290 
TXCMN300 
TXCMN310 
TXCM0320 
TXCMN330 
TXCMN34U0 
TXCMN350 
TXCMO0360 
TXCM0N370 
TXCM03R0 
TXCMN390 
TXCmMO4NN 
TXCM0410 
TXCM0420 
TXCMN4U30 
TXCMON44U0 


Or QE) 216) 2G) 
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104 
1041 


1042 


105 


106 


107 


108 
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TAXCOM = TAXCOM + RATE (KeJJ) &DFLTA 


CONTINUE 

X1 = Oe 

IF (MARTAL-GT.0O) Xi = le 

K2 -S° DEP 

x3 = O 

IF (IWwIFE-EQ.0) GO TO 1042 
be ge | 


X4 = IWWIFE = 1 

CREDIT = (1¢0-X1)*CRED(1) + x1*CRED(2) + 
1 X2*CRED(3) + X3*CREU(4) 

IF ( DEP) 106°106¢ 105 

CREDIT = CREDIT + xX3*CRED(5) + CRED(6) + X4*CRED(7) 
TAXCOM = TAXCOM = CREDIT = CFROMI 

IF (TAXCOM) 107% 108°10a 


TXCRED = =TAXCOM 
TAXCOM = 0-20 
RETURN 

END 


FUNCTION CURTAX( TAXABL*® TCRFD ) 


SUBROUTINE TO COMPUTE CURRENT TAX LIABILITY ON 
GIVEN TAXABLE INCOME (VERSION OF 30/MAR/66) 


ARGUMENTS 


98 


99 
100 


101 
102 


103 
104 


105 
106 


107 
108 


109 
110 


111 
112 


113 
114 


115 


TAXABL = TAXABLE INCOME 
TCRED = TAX CREDIT ALLOWED 


COMMON /SWITCH/S ISwl25) 


IF( TAXABbL ) 98 9Ae 99 

CURTAX = 0-0 

RETURN 

IF (TAXABL71000.0) 100° 100° 101 
CURTAX = ¢11*TAXABL 

GO TO 132 

IF (TAXABL~2000-0) 10201020103 
CURTAX = 110.0+ .14*(TAXABL~100NeN) 
GO TO 132 

IF (TAXABL~3000-0) 104°1040105 
CURTAX = 250-0+ 217*(TAXABL“20NN-0) 
GO TO 132 

IF (TAXABL7"4000-0) 106° 106 107 
CURTAX = 420-0¢ .19¥*(TAXABL=300N-0) 
GO TO 132 

IF (TAXABL“6000.0) 10891080109 
CURTAX = 610.0+ .22*(TAXABL“400Ne 0) 
GO TO 132 

IF (TAXABL~8000-0) 11001100111 

CURTAX = 1050.0+ 226*(TAXABL-6000.0) 
GO TO 132 

IF (TAXABL710000-0) 11201120113 
CURTAX = 1570.0+ .30*(TAXABL-8070.0) 
GO TO i132 

IF(TAXABL71200020) 1140114115 
CURTAX = 2170.0+ «35*(TAXABL=-10000-0) 
GO TO 132 

IF (TAXABL715000-0) 116°1160117 


TXCMN4YS5O 
TXCMN4BN 
TXCMN470 
TXCMO4RON 
TXCMO490 
TxCMO500 
TXCM0N510 
TXCMN520 
TXCMO530 
TXCMN540 
TxCmMNSSO 
TxCmM0560 
TXCMN570 
TxXCMn5SA0 
Txcmoson 
TxCmMoN6N00 
TXxCmMN61N 
TXCM0620 
TxCMN630 


CRTXx0000 
CRTXN010 
CRTXN020 
CRTX0030 
CRTX0040 
CRTXN050 
CRTXN060 
CRTX0070 
CRTX0N0R0 
CRTX0090 
CRTX¥N100 
CRTXN110 
CRTX0120 
CRTX0130 
CRTX0140 
CRTX0150 
CRTXN160 
CRTX0170 
CRTX¥N180 
CRTX0190 
CRTXN2N0 
CRTX0210 
CRTXN220 
CRTX0230 
CRTXN240 
CRTX¥N250 
CRTXN260 
CRTXN270 
CRTX02A0 
CRTX0290 
CRTX0300 
CRTX0310 
CRTX0320 
CRTXN330 
CRTXN340 
CRTXN350 
CRTXN360 
CRTXN370 


NDNANADANAIANN 
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116 CURTAX = 2870.0+ «40*(TAXABL-129n00-0) CRTXN380 
GO TO 132 CRTX0390 

117 IF C(TAXABL725000.0) 11891189119 CRTXN4NO 
118 CURTAX = 4070.0+ e45*(TAXABL=-15000.0) CRTX0410 
GO TO 132 CRTXN42PN 

119 IF(TAXABL~40000.-0) 120°1270+¢121 CRTX043N 
120 CURTAX = 8570.0+ «50*(TAXABL-25n00-0) CRTXN4U0 
GO TO 132 CRTY¥N4YSNO 

121 IF(TAXABL~60000.-0) 122912720123 CRTXN460 
122 CURTAX = 16070-.0+ .55*(TAXABI—4N000-0) CRTXN470 
GO TO 132 CRTXN4URO 

123 IF(TAXABL“90000-0) 124°1240125 cRTXxN4an 
124 CURTAX = 27070.0+ .60*(TAXABL ~6N000.0) CRTXON5N0 
GO TO 132 CRTX¥N510 

125 IF(TAXABL7125000.0) 12691269127 CRTXN520 
126 CURTAX = 45070.0+ .65*(TAXABI.-9N000.0) CRTX0530 
GO TO 132 CRTXN540 

127 IF (TAXABL7“225000.0) 12801289129 CRTX¥N550 
128 CURTAX = 67820-0+ .70*(TAXABL—-125000-0) CRTXN560 
GO TO 132 CRTXN570 

129 IF(TAXABL~400000.0) 13001319131 CRTXN5R0 
130 CURTAX = 137820.0+ «75*(TAXARL=225000-0) CRTXNS90 
GO TO 132 CRTXN600 

131 CURTAX = 269070.0+ -«80*(TAXARL=-4Uu0000-0) CRTXN610 
132 CONTINUE CRTXN62N 
1966 TAX CUT AND OaS TAX CRTXN630 
DECRES = 0+620*CURTAX CRTXN640 

IF (DECRESeGT.20-) DECRES = 320. CRTX0650 
CURTAX = CURTAX = TCRED = DECRES CRTXN660 

IF (CURTAXeLTeO.) CURTAX = 0. CRTX0670 
OASTAX = 0-04*TAXABL CRTX¥N6R0 

IF (ISW(6) eEQe O -ANDe OASTAX .GTe 1206) OASTAX = 120, CRTXN690 

IF (ISwlo) eEQe 1 eANDe OASTAX .GTe 240-2) OASTAX = 240. CRTXN7NO 
CUKTAX = CURTAX + OASTAX CRTXN710 
RETURN CRT¥0720 

END CRTXN73N 
FUNCTION TAXMIN( HUSe WIFe OFPe CFIHUSe CFIWIF TXMNN000 
TXMN0010 

SUBROUTINE TO COMPUTE MINIMUm TAX UNDER EXISTING LAw TXMNQO020 

FOR FAMILY WITH DEFENDENTS AND wORKING WIFE (VERSION OF 16/MAR/64) TXMNN030 
ARGUMENTS TXMNOOGO 
HUSB = TAXABLE INCOME OF HUSRANN BEFORF EXEMPTIONS TXMNOO50 
WIFE = TAXABLE INCOME OF WIFE TXMN0N060 

DEP = NUMBER OF DEPENDENTS TXMNO070 
CFIHUS = TAX CREOITS FROM INCOMF OF HUSBAND TXMNOORO 
CFIwIF = TAX CREDITS FROM INCOmF OF WIFE TXMNNOGO 
TXMNO100 

HUSB = HUS TXMNO110 
wIFE = WIF TXMNO120 
HUSB = HUSB = 1100.0 TXMN0130 

TEC WIFE = 250.0) 1006 1009 101 TXMNN140 

100 TAXMIN = CURTAX( HUSB-1000.0-DFP*300-0*+ CFIHUS ) TXMNO150 
RETURN TXMNO160 

101 IF( WIFE = 1250-0) 102 102° 10% TXMNO170 
102 TAXMIN = CURTAX( HUSBt+WIFE=125n.0-DEP*300-00 CFIHUS ) TXMNN180 
IF (WIFE eLE. 1100.) RETURN TXMNN190 
TAXMIN = TAXMIN + CURTAX(WIFF1100¢rCFIWIF) TXMNO200 
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IF (DEP ol Te Le) RETURN TXMNN210 

TAX = CURTAX(HUSBt+WIFE=“12506-(NFRP-1le)*30009 CFIHUS) TXMNN220 

IF (TAX eb Te TAXMIN) TAXMIN = TAX TXMNN230 
RETURN TXMNON240 

103 wIFE = WIFE = 1100.0 TXMNN250 
IF( DEP ) 1045 104%. 105 TXMNO 260 

104 TAXMIN = CURTAX( HUSBe CFIHUS ) + CURTAX( WIFEe CFIWIF ) TXMNN270 
RETURN TXMNON2R0 

105 TAXMIN = CURTAX( HUSB=DEP*30nNeNM+ CFIHUS ) + CURTAX( WIFE» CFiwlF )TXMNO29n 
DEPH = DEP TXMNO300 

106 DEPH = DEPH=-1.0 TXMNN310 
DEPW = DEP=DEPH TXMNN 320 

IF( DEPH ) 107% 108+ 108 TXMNN330 

107 RETURN TXMNO3ZGN 
108 TAX = CURTAX(HUSB@DEPH*300.0,CFIHUS) +CURTAX (WIFF =NEPW*300 e0eCFIWIFTXMNN350 
1) TXMNN3ZAO 
IF( TAX = TAXMIN ) 109° 107° 107 TXMNO37N 

109 TAXMIN = TAX TXMNN3ZR0 
GO TO 106 TXMNO390 

END TXMNOWON 
FUNCTION TAXALT( TINC*e CFROMIe MARTALe*® DEPe IwWwIFE*e RATE+ BROTTOMe TXALNONN 

1 NCLASSe CREDe OTHERe Je IALT ) TXALN010 
TXALON20 

ALTERNATIVE TAX CALCULATIONS TXALN030 
ALTERNATIVE ODEFINOR ( IALT ) TXALNO4O 

1 = MODIFIED CICA/CBA SCHEME TXA! 0050 

2 = UeSe TAX SYSTEM TXAL ONAN 
TXALN070 

DIMENSION RATE(3e25) +6 BOTTOM(25)*e CRED(25)6 OTHER(100) TXALONORO 
TXALNO9N 

GO TO ( 100° 103 )e IALT TXALO0100 
TXALN110 

MOUIFIED CICA/CBA PROPOSALS TXALN120 
NOTE THAT CFROMI REFLECTS DEnUCTION OF TXALN130 

15 PERCENT OF CASH DIVIDENOS WITHHELD AT CORPORATION TXALON1490 
TXALN150 

100 GAIN = OTHER(J) TXAL.N160 
TPROP = TINC TXAL0170 

IF( TPROP = 10000- ) 1001+ 1n0?- 1002 TXALN180 
1001 CFROMI = O- TXALN190 
1002 TPROP = TINC = GAIN TXALN200 
TAXALT = TAXCOM( TPROPe CFROMI*» MARTAL» DEPer IWWIFFe TXALN210 

1 RATE» BOTTOMe NCLASSe CRED, TXCRED ) + e25*GAIN TXAI.N220 
TPROP = TINC = .5*GAIN TXALN230 

TAX = TAXCOM( TPROP+ CFROMI+ MARTAL»® DFPe IWWIFE> TXALN240 

1 RATE+ BOTTOMe NCLASSe CRED, TXCRED ) TXALN250 
IF( TAXALT = TAX ) 1026 1026 101 TXALN260 

101 TAXALT = TAX TXALN270 
102 RETURN TXALN280 
TXALN290 

UeSe TAX CALCULATION TXALO300 

( TO COME ) TXALN310 
TXALN320 

103 GAIN = OTHER(J) TXALN330 
RETURN TXALN340 

END TXALN350 


ANNAN 
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1e2 RATE SCHFOULE CHARACTERISTIC ANALYZERS 


SUBROUTINE INPUT( BOTTOMe RATEe CRED*e NCLASSe ITPOUT*s CASFNO) 
NUMBERED AS OF 9 JULY 1966 

ULUIMENSION CRED(25) 6 BOTTOM(25) 6 RATE(3925) 
ITPIN = 5 

ITPOUT = 6 

READ (ITPINe1) CASENOe NCLASS 

READ (ITPIN®4) (CRED(U)+ J=1l,1n) 

READ (ITPIN?® 2) UBUFe BUFLe GBUF2+- bBIIF 35 RUFY 

READ DATA CARDS UNTIL BLANK CARN REACHEDe THEN COMPUTE 
IF (JBUF) 101-101+ 1001 

J=JiKUF 

BOTTOM(J) = KUF1*1000.0 

RATE (1eJ) = BUF2 

RATE (2eJ) = BUFS 

IF (BUF4.GT+e0e-) GO TO 1002 

X = SIGN (lee BUFFY) 

1F (XeLTO6) BUF&Y = BUFFS 

RATE(3eJ) = BUFY 

GO TO 100 

RETURN 

FORMAT ( 5Xe ASe 110 ) 

FORMAT( [Se FSeO0 3F5e2 ) 

FORMAT ( 10F5.0 ) 

ENU 

SUBROUTINE SETUP ( GROSS» TAXARL »® NOFEXs NUDEP ) 


SUBROUTINE TO DEFINE PARAMETFRS OF TABLES GENFRATED BY TAXTAb 
(VERSION OF 16/MAR/66) 
NDEP (6) 


DIMENSION GROSS(25)6 TAXABL (25) 


DO 101 J=1e4 


NDEP(J) = Jal 
NDEP(5) = 5 
NDEP(6) = 8 

NOFEX = 22 
GROSS(1) = 1500.0 
GROSS(2) = 2000-0 
GROSS(3) = 2500-0 
GROSS(4) = 3000-0 
GROSS(5) = 3500.0 
GROSS(6) = 4000-0 
GROSS(7) = 5000.0 
GROSS(8) = 6500-0 
GROSS(9) = 8000.0 


INPTOONO 
INPTON010 
INPTNO?0 
INPTN0N30 
INPTNO4O 
INPTO050 
INPTO0060 
INPTO070 
INPTNORO 
INPTO090 
INPTNLNO 
INPTN110 
INPTO120 
INPTN130 
INPTO140 
INPTO150 
INPT0140 
INPTN170 
INPTON1a0 
INPT0190 
INPTO200 
INPT0210 
INPTN220 
INPTN230 
INPTN240 
INPTN250 


SETPNON0 
SETPNO10 
SETPN0AD 
SETPN030 
SETPOOGO 
SETPN050 
SFTPN0K6D 
SETPN070 
SETPO0RO 
SETPNO0SN 
SETPO10N0 
SETPN110 
SETP0N120 
SETPN130 
SETP0140 
SETP0150 
SETPN160 
SETP0170 
SETPN180 
SETPON190 


O'@ ©) Gre) 


102 


100 


1000 
101 


1011 


1013 
102 


104 


Wats 
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GROSS(10) = 100000 
GROSS(11) = 12000-06 
GROSS(12) = 15000.0 
GROSS(13) = 20000.0 
GROSS(14) = 25000-0 
GROSS(15) = 30000-0 
GROSS(16) = 40000.0 
GROSS(17) = 500000 
GROSS(18) = 700000 
GROSS(19) = 100000. 
GROSS(20) = 200000. 
GROSS(21) = 350000. 
GROSS(22) = 600000. 
DO 102 J=1le NOFEX 
TAXABL(J) = GROSS(U) 
KE TURN 

END 


SUBROUTINE TAR1 (BOTTOMe RATF*® CRED*e NCLASS» ITPOUT+ RCASF) 


SUBROUTINE TO SUMMARIZE RATE SCHEDULE (VFRSION OF 16/MAR/66) 
REVISED FOR TRI@RATE STRUCTURE+s 11 JUNF/66 
NUMBERED AS OF 9 JULY 1966 

CRED(25) 


DIMENSION BOTTOM(25)6 RATE(3,25) » CC(25) » 


RATIO(25) 6 B(3)-6 R(3) 


wRITE (ITPOUT*®5) RCASE 
wRITE (ITPOUT?1) 


J = 0 

IXMPTN = 1 

00 100 K = le 7 

CC(K) = Ged 

DO 1000 K = 8B» 10 

GC CK). t=) CRED CKe) 

J=Jt+1 

A = BOTTUOM(J) 

IF (IXMPTN eGTe 3) GO TO 1012 


IF (A.LTeCREDO(8)) GO TO 101 

IF (AeLTeCRED(IXMPTN+7)) GO TO 1013 
IXMPTN = IXMPTN + 1 

IF (CREOCIXMPTN+6).LE+0-) 
ret eth 

A = CRED(IXMPTN+6) 
GO =TO AvOLS 

GO TO 1013 

I-sil 

ts(1) = TAXCOM( Avr 


GO; eT ORAL 


GeOe Tele ne0e RATE® BOTTOMe NCLASSe CC» 


= RATE(I¢J) 
°Gike IXMPTN) 
BO) TO 10S 1056 


ROL) S70. 
POG) emer 
GO TO 102 
wRETE (ITPOUT®3) Ae (RII) « BCI). 
IF (J = wCLASS) 1016 1050105 
wRITE CITPOUTs4) (-CREDCI) + Jat7 7) 
KE TURN 


I> = sien 


TKCRED 


SETPN200 
SETP0210 
SETPN220 
SETPN230 
SETPN240 
SETP0250 
SETP0N260 
SETPN270 
SETPN2R0 
SETPN290 
SETPN300 
SETPN310 
SETPN320 
SETPN330 
SETPN340 
SE TP0350 
SETPN3A0 


TAB1N000 
TAB10010 
TAB1NO2O 
TAR10N030 
TAB1N040 
TABINOSO 
TAB10060 
TAR10N070 
TABI1NOARDN 
TAB10090 
TARININO 
TAB1N110 
TAB1N120 
TABI0130 
TAB1N140 
TARB1N150 
TABINI60 
TAB1N170 
TAB1N1AN 
TAB10190 
TABIN2ENNO 
TAB10210 
TABIN220 
TABIN230 
TAB10240 
TAB1N250 
TABIN2Z6N 
TAB1N27N 
TAB1IN2AD 
TABIN2SN 
TAB1IN3N00 
TAB1N310 
TABK1N320 
TAKIN330 
TABIN340 
TAB10350 
TAB1IN360 
TAB1N370 
TAB1N3R0 
TAB1N390 


(Pal DEAR: 


eGaNta) tae 
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TAR104N0 

1 FORMAT ( 1HOe 1X6 VHTABLE 1 / IFO» 1X* IBSHRATE SCHFOULE / TAB10410 

1 1HO*e 20Xe LIHINDIVIDUALS?e luxe 21HFAMILIES w/0 CHILDRENe TAB1N420 

1 oXe 22HFAMILIES wITH CHILDREN / TAR1N430 

2 1HO*» 1X VHBRACKET+* 8X» BHMARGINAL® 4X0 GHTAX ATs 2(12X> TABINY4O 

| BHMARGINAL+® 4X* GHTAX AT ) / 2X0 GHROTTOMe 11Xe TAB10N450 

4 4HRATE*® 6X9 GHROTTOMe 2(14X» 4HRATE*® &X* GHROTTOM) / 1X ) TAB10460 

3 FORMAT ( 1Xe F8eU9 Fl3e2e FireNe 2(F1I7e2e F130) ) TAB10470 
4 FORMAT ( 1HO» 7HCREDITS / &Xe INHINDIVIDUAL® 10X»+ FS5.0 / TABION4AN 

1 GX» THMARRIEDe F1l&e0 / 4Xe GHDEPENDENTe F16-0 / TABIN4GO 

2 4X» L2HWORKING WIFE*® Fisden 7 4&Xe I4HWORKING MOTHER? TAB10500 

3 F11.0 / 4X 14HADGITIONAL FOR / &X LIHFIRST CHILNe F14.0 / TAB1N510 

4 4X 1I4HADDITIONAL FOR / &X 19HWORKING MOTHER WITH / a&X TAB1N520 

5 13HCHILD UNDER 7 Fl2-0 ) TAB10530 

5 FORMAT (1H1*e1l4HRATE SCHEDULE » Ao / 1HN) TAB10540 
END TAB10550 
SUBROUTINE TAB2( BOTTOMse RATE CREDe NCLASSeITPOUT ) TAB?2N000 
TAR2N010 

COMPUTE UVIFFERENCE BETWEFN TaXaATION OF MARRIED AND SINGLE TAB?20020 
TAXPAYERS (VERSION OF 1A4/MAR/06) TARB?0030 

TAR20040 

DIMENSION BOTTOM(25) 6 RATE(3925)*6 CRED(25)* GROSS(25)» TaXABL (25) 6 TAR2N050 

1 WwOEP(6) TAB?20060 
TAB?0070 

wRITE (ITPOUT?1) TAB2NNRN 
CALL SETUP( GROSSe TAXABLe NOFFXe NDEP ) TAB20090 

J=V TAB20100 

100 J=J+1 TAB2N110 
B = GROSS(J) TARB?P2N120 
1005 A = TAXCUM( Be 060000056000 RATFe BOTTOMe NCLASSe CRED? TXCREN ) TABR20130 
C = TAXCOM( Be O-e00le0e0000 RATFe HKHOTTOMe NCLASS*e CREND* TXCREN ) TAR20140 

IF (A) 1006001006» 1007 TAB20N150 
1606 A = 0.0 TAB20140 
GO TO 10u8 TAB?0170 
MOOvaeAr = LOOeU* CT. O = C/A) TAB20180 
1008 wRITE (ITPOUT*®2)GROSS(U)» A TAB?0190 
IF (JU = iNOFEX) 1006 101101 TAB20200 

101 RETURN TAB2N210 
TAB20220 

1 FORMAT ( 1H1»e 7HTABLE 2 / 1lHne TAB?20230 

1 S6HPERCENT DECLINE IN TAX WITH MARRIAGE / TAB20N240 

2 1HO 7 19X»e THRPERCENT/SXe*6HINCOME® 9X*e VHDECLIWE / 1H ) TAB20250 

2 FORMAT ( Fll.eO* FiSel ) TAB20260 
ENu TAB20270 
SUBROUTINE TAB2A (BOTTOMe RATE+ CREDe NCLASSe ITPOUT) TR2AN0000 
TB2AN0010 

COMPUTE DIFFERENCE BETWEEN TaXES OF MARRIED COUPLE AND COMBINFD TR2A00270 
TAXES OF TWO SINGLE PERSONS FACH WITH HALF THE COUPLE'S INCOMF TR2AN030 
TR2AN04KO 

OIMENSION BOTTOM(25)¢6 RATE(3525)*e CRED(25) 6 GROSS(25)* TAXABL (25) >» TB2A0050 

$ NDEP (6) TR2A0060 
wRITE (ITPOUT?1) TB2AN070 
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CALL SETUP (GROSSe TAXABLe NOFFX* NDEP) TB2ANNRO 
PSO TB2AN090 
yon hae ae | TB2AN100 
6B = GROSS(J) TR2AN110 
A = 2e*TAXCOM(B/2ee Oce Or Owe Ne RATE*® ROTTOMe NCLASSe CREDe D) TB2AN120 
C = TAXCOM(Be Oor 1e Neo Or RATF*® KOTTOMe NCLASSe CRED» /1)) TR2AN1L30 
LEAD SEE s. Oe OR SU. TB2AN140 
IF (A eGTe O04) A = 10Ne*( (C/A) -1-6) TB2AN150 
WRITE (ITPOUT*#2) GROSS(U) 9A TR2AN140 
IF (J el Te NOFEX) GO TO 100 TR2A0170 
RETURN TR2AN1 RO 
TR2A0N190 

FORMAT (1H1l>e AHTABLE 2A / lHne TR2AN2ZN00 
S6OHPERCENT INCREASE IN TAx FORK 2 SINGLE » TR2AN210 
35H PERSONS WITH SAME INCQMF wHO MARRY / 1HO? TB2A0220 
19X* 7HPERCENT / 5SXe 6HINCOMFe 9Xe ABHINCREASE / 1H) TB2AN230 
FORMAT (F1lleOe Fi5e1) TB2AN240 
END TB2AN250 
SUBROUTINE TAR3( BOTTOMe RATFe CREDe NCLASSe ITPOUT ) TAR*NONN 
TAB30010 

COMPUTE IMPLICIT MARKIAGE TAx FOK FAMILIES WITH wORKING BRIDE TAB3N02N 
(VERSION OF 16/MAR/66) TAB3N030N 
TAB20040 

DIMENSION BOTTOM(25) 6 RATE(3e25)° CRED(25)* TAXM(3) TAB30050 
DIMENSION GROSS(25)+ TAXABL(25)+ NDEP(6) TAB3N040 
TAR30070 

WRITE (ITPOUT?1) TAB30080 
CALL SETUP( GROSSs TAXABL»s NOFEXe NDEP ) TAB30090 
J=0 TAB30100 
J=J+1 TARB30110 
A = GROSS(J) TAB3N120 
I=1 TAB30130 
AA = 0-2*A TAB30140 
th = TAXCOM( AAe Dee Oe0e00U0 RATE» BOTTOMe NCLASSe CREDe TXCRFD ) TAB3%0150 
AA = A-AA TAB30160 
B = B + TAXCOM( AAe Ue Ne UeNe Ne RATE® BOTTOMe NCLASSeCRFEDe TXCRENTAB30170 
) TAB30180 
AA = TAXCOM( Ao OcoGe Le OoOre 1e KATE® ROTTOMe NCLASSe CRED» TXCRENTAB3N190 
) TAB20200 
TAXM(I) = AA@B TAB320210 
GOTO ( MOS" 1035 199.1104 Do TAB30220 
I=2 TAB30230 
AA = 0-35*A TAB30240 
GO TO 10e TAB320250 
T=3 TAB3N260 
AA = 0-5*A TAB3N270 
GO TO i102 TAR30280 
WRITE (ITPOUT+2) Ae (TAXM(K) 6 K=103) TAB3N290 
IF (J = NOFEX) 106 1056105 TAB320300 
RETURN TAB30N310 
TAB30320 

FORMAT ( 1Hle 7VHTABLE 3 / 1Hne 12HMARRIAGE TAX / 1HO / TAB%N330 
1HO* 10X*6GHINCOME* 10X* 7HWIFF=.20 10X*e 8HWIFE=.35¢ TAR3N340 
Q9Xe7HwIFE=.5 / 1x ) TAB30350 
FORMAT ( F16.0° 3F17-1 ) TAB30N360 
END TAB3N370 
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SUBROUTINE TAB4Y( BOTTOMse RATF»® CREDe NCLASSe ITPOUT ) 
INCREASE IN TAX THROUGH FILING SEPARATELY (VERSION OF 16/MAR/66) 
DIMENSION BOTTOM(25)¢6 RATE(3.25)*e CRED(25)° GROSS(25) 6 TaXABL(25)> 
1 NDEP(6)+5* TAX(3) 
CALL SETUP( GROSS+ TAXABL>e NOFFX»* NDEP ) 
wRITE (ITPOUTe1) 
J = 0 
100 J = J+l 
A = GROSS(J) 
ee | 
102 C = TAXCOM (Ao Oor le Oor Or RATE ®PROTTOMeNCLASS¢ CRED» DUM) 
AA = e2&*A 
1020 KTHRU = 1 
1021 CONTINUE 
103 B = Oe5*TAXCOM (2e*AAe Ooe Le Noe Ve RATE *®*BOTTOMeNCLASSe CRED ee NUM) 
IF (8B) 1031+ 103261032 
1031 B = 0.0 
1032 GO TO ( 1033+ 1034 )»+ KTHRU 
1033 AA = A=-AA 
BB = B 
KTHRU = 2 
GO TO 1021 
1034 & = BB + B 
TAX(I) = BHC 
GO TO ( 104+ 105+ 106 )e I 
104 AA = .35*A 
I=e 
GO TO 1020 
105 AA = .50*A 
irs 3S 
GO TO 1020 
106 wRITE (ITPOUT+®2) Ae (TAX(T) +e T=19°3 ) 
IF( J=NOFEX ) 100° 107¢ 107 
1067 RETURN 
1 FORMAT( SHITABLE & / 24HOINCREASE IN TAX THROUGH e¢ 
1 18H FILING SEPARATELY / 1Hn / 1HOe 1NXe GHINCOME* 10Xe 
2 THWIFE=e2e 10Xe BHWIFE=.-35» 9X0 VHWIFE=.-5 / 1X ) 
2 FORMAT( Fl6ce0Oe 3F17-1 ) 
ENO 
SUBROUTINE TAB5( BOTTOMe RATFe CREDe NCLASSe ITPOUT ) 
EFFECTIVE TAX RATE ON WIFE*S INCOME (VERSION OF 16/MAR/64) 
DIMENSION BOTTOM(25)¢+ RATE(3e25)0 CRED(25) + GROSS(25) 6 TAXABL(25) » 
$ NDEP(6)¢6 EFF(S502)6 WIFE(5)» NTAX(2) 
WIFE(1) = 1500.0 
WIFE(2) = 2500.0 
wIFE(3) = 3500.0 
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TAB4NONN 
TAB4N010 
TAB4YN020 
TAR4O030 
TAB4O04O 
TAB4SNO0S0 
TARYNNBD 
TABGNO70 
TAB4LONRO 
TAB4&O090 
TAB4UN1NOO 
TAB4N110 
TAB4YN120 
TAR4N130 
TABYN140 
TAB4N150 
TAB4N160 
TABYN170 
TAB4N1LARO 
TAR&LN190 
TABLN2NN 
TAB4N210 
TAB4N220 
TAB4N230 
TAB4YN240 
TAB4&O250 
TAB4N260 
TARB4L0270 
TAB4N2R0 
TAB4N290 
TAB4SN3S00 
TAB4N310 
TAB4N320 
TAB4N330 
TAB4UNZ4N 
TAB4N350 
TAB4N360 
TAB40370 
TAB4N3A0 
TAB40390 
TAB4NYNO 
TAB4YN410 
TAB4YNYAD 


TABS50N000 
TAB50010 
TABSN020 
TABS50030 
TARSN040 
TABSN050 
TARS0N060 
TABS0070 
TABSNO0RO 
TAB50090 
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WIFE(4) = 5000.0 
WIFE(5) = 6500.0 
CALL SETUP( GROSS» TAXABL» NOFFYXe NDEP ) 
wRITE (ITPOUTe1) (WIFE( JU)» J=10°5)0 (WIFE (JU) ® J=19°5) 
100 J=0 
101 J=JU+1 
A = GROSS(J) 
I=1 
K=1 
C=-e03*A 
IF( C-500¢0) 103 1026 102 
ro2"C = S00<0 
POSTXK te KT 
OTAX(K) = TAXCOM(A=C=500¢e OeeKeXKe Or RATE? BOT TOMeNCLASSe¢ CREN 2 DIM) 
Se ET: 
IF (K eEQ@e 2) GO TO 103 
IF (K e-EQe 3) K S12 
104 B=A+WIFE(T) 
AA=wIFE(IT) 
D=.03*B 
IF( D=-500¢0) 106° 106 105 
105 vL=500.0 
106 B=6=-D=-50.0 
107 XK = Kel 
EFF (I eK) = (TAXCOM(Be Oe eKe XKe le RATE ®BOTTOMeNCLASSe CRED eNUM) 
S = DTAX(K))/AA 
K=K+1 
IF( Ke-2 ) 107+ 107+ 108 
108 K=1 
I=I+1 
IF( I-55 ) 1045 1046 109 
109 wRITE (ITPOUT*+2) Ae ( ( EFFCIxoKx)» IX=105 )eo KX=102 ) 
IF( Je-NOFEX ) 101° 110° 110 
110 wRITE (ITPOUT¢3) (WIFE (U) 6 J=195) 
J=0 
111 JYsd+1 
A=GROSS(U) 
ATAX = CURTAX(A=21000° O.) 
Il=1 
112 b=wIFE(I) 
EFF(Ie1i) = (CURTAX(A=1100000.) + CURTAX(R=-11000900e) = ATAX)/R 
I=I1+1 
IF( I\S5 ) 112-5 1126 113 
113 wRITE (ITPOUT+4) Ae ( EFFCIXe 1),6 IX=10e 5 ) 
IF( J=NOFEX ) Lilie 114° 114 
114 RETURN 
1 FORMAT ( 8HITABLE 5S / IOHOEFFECTIVE TAX RATE » 
1 26H ON INCOME OF WORKING wIFF / 1HO / 
2 33Xe 13HNO DEPENDENTS »¢ 
5 42Xe 22HONE OR MORE DEPENNENTS / 1X 
Q LOHHUSBAND'S » 23X* 13HWIFE*S INCOMF + 6X 
5 Y3HWIFE*S INCOME / 2X0 GHINCOIMF 6 4Xe SF11.0° 
6 UX» SF11-0 / 1x ) 
2 FORMAT ( F9eUs 3X0 SF1le3e Yxe &F11-3 ) 
3 FORMAT ( 1HO / 1HOe 32X6 IGHUNDFR CURRENT RATES / 
i 1X* QHHUSBAND'S / 2Xe 6HINCOMEs 4Xe 5SF11¢0 / 1X ) 
GY FORMAT ( F9eQe 3Xe 5SF11-3 ) 


END 


TAB50100 
TABS50110 
TABSN120 
TAB50130 
TABS0140 
TABSN150 
TABSN160 
TAR50170 
TABS0180 
TAB50190 
TABSN200 
TAB50210 
TAB5N220 
TAB5N230 
TABS0240 
TAB50250 
TAB50260 
TAB50270 
TAR502a0 
TABSN290 
TABS50N300 
TAB5N310 
TAB5N320 
TAB50330 
TABSN340 
TAB50350 
TABS0N360 
TABS0370 
TABSN3A0 
TAB5N390 
TAR50N400 
TABSNG1IN 
TABSNYAN 
TAB50430 
TABSN44UN 
TABSN4S0 
TAB50460 
TABSN4&70 
TABSON4RO 
TABSN490 
TABSNSNN 
TABSO510 
TABS0520 
TAB50N5§30 
TABSN540 
TABSN550 
TABSN560 
TABSN570 
TABSNS5Aa0 
TABS0N590 
TAB5N600 
TAR5N610 
TABSN620 
TABSN630 
TARSN640 
TAB5N650 
TABSN64A0 
TAB5N670 
TARBSN6ARN 
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SUBROUTINE TAB6 (BOTTOMe RATE *® CKED*® NCLASSe ITPOUT) 


SUBROUTINE TO COMPUTE TAX RENUCTION FOR FAMILY WITH DEPENDANT 


LIMENSION BOTTOM(25) sRATE (3925) CRED (25) eGROSS(25) » 
$ TAXABL (25) #NDEP (6) 


CALL SETUP (GROSSe TAXABLe NOFFYe NDEP) 
WRITE (ITPOUTs 1) 
J = 0 
100 J=utl1 
X= GROSS(J) 
A = TAXCOM (Xe Ooe 2e lee Ge RATE *BOTTOMeNCLASS&* CRED e DUM) 
fs = TAXCOM (Xe Oce le Ooo Oe RATE PBOTTOMeNCLASS¢GREN e DUM) 
fF AB.LEsOe) A = Oe 


IF (BeGTeO-) A =—((A/R) = 1le)*1N0. 
WRITE (ITPOUT*+2) GROSS(JU)e A 

IF (J.LTeNOFEX) GO TO 100 

RETURN 


1 FORMAT (6HITABLE 6 / 1HO> 
ON BIRTH OF FIRST CHILD / 1HO> 
$ BHINCREASE / 1X) 

2 FORMAT (F11¢O06 F15.1) 

END 


19X* VHPERCENT/ 5SXe 


SUBROUTINE TAB7 (BOTTOMe RATE *® CREDe® NCLASS* ITPOUT) 


SUBROUTINE TO COMPUTE EXFMPTIONS EQUIVALENT TO CREDITS 


DIMENSION GROSS(25)»* TAXABL(25)+5 RATE(3925) 0 ROTTOM(25) » 


$ XMPT(6)° CRED(25) 

UIMENSION TOP(6)¢6 bOT(6)6 DENUC (6) 

rhs 3 

CALL SETUP ( GROSS» TAXARL»® NOFFXe NDEP ) 
wRITE (ITPOUT»#1) ( NOEP(K)» k=106 ) 

XKSUP = Ue 

IF ((CREO(6)4+CRED(3)) EQ. 0.) XKSUP = le 
DO 98 K=1°6 

TOP(K) = O- 

BOT(K) = O- 

DEP = NDEP(K) 

DEDUC(K) = 372¢*(DEP=XKSUP) 

IF (DEP eLEe Of) OGOEDUC(K) = 0. 

98 CONTINUE 

vO 101 I = le NOFEx 

X = GROSS(T) 

DO 100 K = le 6 

DEP = NDEP(K) 

CR = CRED(6) + CRED(3)*DEP 

IF (DEP eLEe O-) CR = O- 

XMPT(K) = EQUIV (Cke Oe Xe ee 2e DEPe Or RATE*® BOTTOM, 
$ CRED) 

IF (BOT(K) eNEe O6) GO TO 99 

IF (XMPT(K) .GTe DEDUC(K)) ROT(K) = X 
GO TO 100 

99 IF (TOP(K) eNEe Oc) GO TO 1n0 


co) a) 


NDEP (6) » 


NCLASS»e 


TABBN0ND 
TAR6N010 
TAB60020 
TAB6NN30 
TAB6N04N 
TAR&0050 
TAB6N060 
TAB60070 
TARAN0RN 
TAB6NDS0 
TARAN100 
TAR6N110 
TAB6N120 
TAB6N130 
TAB60140 
TABAN150 
TAB6N1460 
TARB60170 
TABANLAO 


60HPFRCENT NECREASE IN TAXES FOR CQOUPLFTAR60190 
6HINCOME ¢ 


TARAN200 
TARE60210 
TARAN220 
TARB60230 


TAB7N000 
TAB70010 
TAB7NO20 
TAB70030 
TAB70040 
TAB70050 
TAB7N060 
TAR70070 
TAB700R0 
TAB7N090 
TAB70100 
TAB70110 
TAB70120 
TAR70130 
TAB7N140 
TAB70150 
TAB7N160 
TAB70170 
TAB70180 
TAB70190 
TAR7N200 
TAB70N210 
TAB7N220 
TAB7N230 
TAB7N240 
TAB70250 
TAB70260 
TAB70270 
TAB7N2R0 
TAB70290 
TAB70300 


90 


C 


OY VOY OVO Or Oram 


IF (XMPT(K) eLE. DEDUC(K)) TOP(K) = X TAB70N310 

IF (XMPT(K) eGTe DEDUC(K)) ROT(K) = X TAB70320 

100 CONTINUE TAB70330 
wRITE CITPOUT*2) Xe (XMPT(KH)* KH = le 6) TAB70340 

101 CONTINUE TAB70350 
WRITE (ITPOUT+3) (DEDUC(K) eK=1.A) TAB70360 
SGN = le TAB70370 
STEP = 100. TAB70380 

DO 104 K=196 TAB7N390 
XMPT(K) = Oo TAR70400 

IF (TOP(K) eLEe Oc) GO TO 104 TAB70410 

IF (DEDUC (K) eLEe Oe) GO TO 104 TAB7N4U20N 

DEP = NOEP(K) TAB7N43N 

CR = CRED(6) + CREU(3)*DEP TAR7N4GUN 

X = BOT(K) TAB70N45N 

102 x = X + SGN*STEP TAB70N440N 
Y = EQUIV(CRe Ooo Xe Ooe 2e NEPs Ne RATE *BOTTOMeNCLASS* CRED) TAR70470 

IF (ABS(Y*DEDUC(K)) LE» 0-5) GO TO 103 TAB704R0 

IF (SGN*(Y=DEDUC(K)) «GT. O«) GO TO 102 TAB70N490 
STEP = STEP/10. TAR7NSOO 
SGN = &SGN TAB70N510 

GO TO 102 TAB70N520 

103 XMPT(K) = X TAB70530 
104 CONTINUE TAR70540 
WRITE (ITPOUT*®4) (XMPT(K) eK=196) TAB70550 
RETURN TAB7N540 
TAB70570 

1 FORMAT ( 1H1le VHTABLE 7 / lHne TAB7N5a0N 

$ S2HEXEMPTIONS EQUIVALENT To CRENITS / TAR7N590 

S$ AHOs 2X* TFHTAXABLE* 17Xe LAHNIIMBER OF CHILOREN / TAB7N6NDN 

$ 3Xe BHINCOMEs 1Xe 6J11i / ly ) TAR70610 

2 FORMAT ( F10.0* 6F11-0 ) TAR70620 
3 FORMAT (8HOCURRENT/10H EXEMPTIONe 6F 11.0) TAB7N63N 
4 FORMAT (1X/ 5S4&HOINCOME AT wHICH CREDITS AND EXEMPTIONS YIELD SAME TAR7N640N 
STAXS 1LHOe9OXe6F11.0) TAB70650 
ENO TAB70660 
FUNCTION EQUIV (CREDIT» XMPTNe TINC» CFROMI» MARTALe+e DEP» EQaUVONNN 

S IwwIFE* RATEs BOTTOMe NCLASS, CRED) EQUVN010 
EQquVn02PN 

FUNCTION TO COMPUTE EXEMPTION EQUIVALENT TO GIVEN CREDIT OR VICE EQUYVONSN 
VERSA FQUVO04N 
AKGUMENTS Eauvnoso 
CRELIT = CREDIT FOR WHICH EQUIVALENT EXEMPTION IS TO RE FOUNU EQUVON0KN 
XMPTN = EXEMPTION FOR WHICH FQUYVALENT CREDIT IS TO BE FOUND FQuV007N 

ALL OTHEK ARGUMENTS ARE ARGUMENTS OF TAXCOM. NOTE THAT CREDIT ANNEQUVO0RN 
XMPTN MUST RE INCLUDED IN THE AFPROPRIATE TAXCOM ARGUMENTSe AND FeUVNNSN 
THAT ONLY ONE OF THE TWO MAY BE NON@=ZERO. FEQUVO1NN 
FAUVN0110 

LIMENSION RATE(3925)* BOTTOM(25)* CRED(25) EQUVN1AN 
FauVn13n 

STEP = 1000- EeUVN140 

SGN’ = TI's EQUVN150 

EPS =,.01 EQ@UVN1AN 
TAXwCR = TAXCOM (TINC*® CFROMT+ MARTAL*® DEPe IWWwIFEs RATE? EQUV0170 

$ bOTTOM* NCLASS* CREDe TXCREN) Equvo1an 
EQUIV = OU EQUVN190 

100 iF (CREDIT eEQ. O-) GO TO lini EQUV02N00 
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TAk = TAACOM (TINC=EGUIVse CFROMT-CREDITe MARTAL*s? DFPe IwWwwIFEe 
$ RATE* BOTTOMs NCLASSs CREDe TACRED) 
GO TO 102 
101 TAK = TAACOM (TINC+#XMPINe CFROMT#FQULVse MARTALe EPs IWWwIFFEe 
$ RATE*® BOTTOMe NCLASSs CREns TXCRED) 
IF (TAX eLEs TAXwCk) RETURN 
EQUIV = EQUIV + il. 
co TO 101 
102 IF ( ABS(TAX=TAx«#«CK).LE-EPS) RETUFN 
IF ( SGN#(TAX=TAXWCR).GT.0. ) GO TO 103 
STEP = STEP/1i0. 
SGN = =SGN 
103 ESGUIV = EGUIV + SGN*STEP 
GO TO 10u 
END 
SUBROUTINE TARS (BOTTOMe RATFe CREUDs NCLASS* ITPOUT) 
SUBROUTINE TO COMPUTE ELASTICITY OF RATE SCHENULF 
DIMENSION RATE(3225)* BOTTOM(25)* CRED(25) 
UIMENSION GROSS(25)+ TAXABL(25), “iDEP(4) 
DIMENSION ELASTY(3) 
CALL SETUP (GROSSr TAXABLs NoFFye NDEP) 
wRITE (ITPOUTs 1) 
NSCHED = 3 
DO 101 J=1l*»NOFEX 
DO 100 I=l1e*NSCHED 
TINC = GROSS(J) 
TAX = TAACOM (TINCe Geer I-le Oee Oe RATE*® BOTTOMe NCLASSe CREM 
$ DUMMY) 
TINC = GROSS(J)#¥1.01 
ETAX = TAXCOM (TINCe Ocer Ile OO. Or RATE*® BOTTOMe NCLASS? CRED» 
S$ DUMMY) 
ELASTY(I) = 99999, 
IF (ETAX eEQ. Of) ELASTY(I) = 1, 
IF (TAX -EQ.- 0-) GO TO 100 
ELASTY(I) = (CETAX=TAX)/TAX) «100. 
100 CONTINUE 
101 awRITE (ITPOUT»2) GROSS(JU)e> (EFLASTY(I)*e I=1*NSCHEI)) 
RETURN 
1 FORMAT (1Hie 7HTABLE 8 / 1HO0, 


$ 7OHPERCENT INCREASE IN TAXES PESULTING FROM A 1 
$ In TAXES / 1HOre 2xe TFHTAXABLE / 3X0 6HINCOMEs 
S$ 5X* 1IOHSCHEDULE 2+ 5Xe* 1OHSCHFDULE 3 7/7 1X ) 
2 FORMAT (F100 3F14.3 ) 

END 


6xe1OHSCHFOULE le 


EQUVN21N 
Eouva220 
EQUVN230 
FQUVN24N0 
FeuVOoO25mN 
EQUVN26N 
EQUVN270 
EquUVO2R0 
EQUVN290 
EQUVON3N00 
EQUV0310 
EQUVN320 
FQUV0330 
EQUV0340 
EQUVN350 


TARRNO00 
TABRN010 
TARRNOAN 
TAKRNOS0 
TARRNN4GO 
TABRNNSO 
TABANNGD 
TARRN070 
TABRNO0RN 
TAKROOSN 
TABRN1NO 
TABRN110 
TABRN120 
TABRN130 
TABRN140 
TABRN150 
TABARN160 
TAB&RN170 
TAB&N180 
TAB8N190 
TABRN2]ND 
TABAN210 
TABRN220 
TABRN230 
TABRN24N 
TABRN250 
TABRN260 
TARBRN2Z70 


PERCENT INCREASFTABARN2ZADN 


TARBRN290 
TABANZN00 
TABRN310 
TABRN320 


COVA 


OMe. 


99 


100 


LOL 


102 


105 


104 


1 WNOFEXe 
c< FI1O5e 
Sue Oe 
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1.3 EXAMPLE GENERATING SUBPROGRAMS 


SUBROUTINE APP12 (bOTTOMe RATE+ CRED» NCLASSe ITPOUTs FEMPL) 
SUBROUTINE TO CONTROL USE OF TAXTAB TO GENERATE NETAILED TAX 


COMPARISONS OF EMPLOYMENT INCOMF TAXATION (VERSION OF 16/MAR/A6) 


DIMENSION BOTTOM(25)¢ RATE(3525)* CRED(25) >. 

1 GROSS(25) 5 TAXABL(25)* NnEP(6)* TINCRD(25)*6 TCURCR(25) 
DIMENSION TNETI(25)¢ CTAX(25)6 OTHER(100)*° CORTIN(25) 
CALL SETUP ( GROSS» TAXABL> NOFFXe NDEP ) 

DO 99 vu = le NOFEX 
CTAX(U) = 0¢0 
TINCRD(J) = 0.0 
TNETI(U) = GROSS(J) 
CORTIN( J) Oe 
TCURCR (J) 0.0 
DIxPG y= 2 


ITHRU = 1 
CALL TAXTAB(GROSSe TNETI+ TAXARt o 
Or ITYPE»s FWIFEs FEMPI » 
NDEP»® BOTTOMe KATE* CREIMe 
TZEKO™) 
GO TO ( 101+ 1026 103+ 104 )», ITHRU 
ITYPE de 
IZeERO 
FWIFE 
ITHRU 
GO TO 
FWiFE 
ITHRU 
GO TO 
FWIFE 
ITHRU 
GO TO 
RETURN 
ENu 


TINCRDe TCURCRe CTAXe 
FDIVe FGAINSs FillVCRe 
NCLASSe OTHER? 


CORTINe 
Fall OCe 
ITPOUTs ITHRI)» 


m= 1 the Ot thee be a 


SUBROUTINE APP1I2A(bOTTOMe RATE *® CREDe NCLASSe ITPOUT+ FFMPL) 
SUBROUTINE TO ADD ITEMIZFD DENUCTION VERSION OF TAXTAR QUTPUT 


TO OUTPUT OF APPENDIX TABLES 


INTEGER DELDED 
OIMENSION INCOME (14) >» 
DIMENSION BOTTOM(25) » 


DELDFD (14) 
CRED(25) 


TAXAMT (14) 9 


RATE(3,25)° GROSS(25) 6 


AP120000 
AP120010 
AP1?0020 
AP120030 
AP120040 
AP120050 
AP120060 
AP120070 
AP1200R80 
AP120090 
AP120100 
AP120110 
AP120120 
AP120130 
AP120140 
AP120150 
AP120160 
AP120170 
AP120180 
AP120190 
AP1?20200 
AP120210 
AP120220 
AP120230 
AP1?°0240 
AP120N250 
AP120N260 
AP120270 
AP12N2a0 
AP120290 
AP120300 
AP120310 
AP12°0320 
AP12N330 
AP120340 
AP1?0350 
AP120360 
AP120370 


A12A0000 
A12AN010 
A12A0020 
A12A0030 
A12A4N040 
A12A0050 
A12A0060 


TAXABL (25) ¢A12A0070 


GG 


>) 


$ NDEP(6)* TINCRD(25) > 
$ » CORTIN(25) 

DATA INCOME / 35¢ SO» 
2000+ 3500+ 6060 / 
DATA TAXAMT / 3032¢r 4Y43Ree SA1IP ce 
235038er 37109¢ee 0651790» 96108.e 
DATA DELDED /98e+ 74&e 133% 266 RSe 

9983 17102* 29889/ 
CALL SETUP ( GROSSe TAXABL» 
isASE2 = Oe 
x2 Oe 
v2 0 
K = 1 
MAX = O 
pon too! le NOFEX 
IF ( GROSS(I).LT~-BASE2 ) GO TO 99 
IF ( MAXeEQe1 ) GO TO 99 
bBASE1 bASE2 
BASE2 = INCOME (K) *100 
X2 
TAXAMT (Kk) 

Ye 
DELUDED (Kk) 
K K + 1 
IF ( KeGTel4 ) MAX 
GO TO 98 
IF (MAX 
TNETICI) 
TAXABL(1) 
GO TO 992 
TNETI(I) 
TAXABL (J) 
TNETICI) 
CORTIN(I) 
CTAX(I) 
TINCRD(I) 
TCURCR(I) 
ITYPE 0 
PTABUSS 
101 CALL TAXTAB (GROSSe 
$ WOFEXe Or ITYPEe 
$ CREDe NCLASSe 
IF (ITYPEeNE.O) 
wRITE (ITPOUT> 
ITYPE = =-8 
GO TO° 101 


TCURCR( 25) + TNETI(25) » 


65+ 8054 1nN0re 120% 150° 
$ 
T7280 ce 

1783378 


106° 218% 


$ 


$ 


NOFFXe NDEP ) 


98 


= 1 


e-EQ@e 1) GO TO 991 
TERPOL (X1* BASE1, 
TNETICI) + TERPOt 


99 


BASED 6 
BASF 1» 


XP 0 
(Y1l» 


Y2e 


X2*GROSS(1)/BASE2 

TNETICI) + Y2*oROSS(1)/BASF2 
TAXABL(1) + 50. 
Ue 


991 


292 


"Wwnic iw 
e 
oo 


100 


TNETI*e TaXARL»s TINCRD» 
Ooe FEMPL>e Nie Uer Doo Oos 
OTHERKe ITPOUTs ITAbBe Or 1 ) 
RETURN 

1) 


1 FORMAT (32X» 
$ YUXe 25HWITH ONE INCOME RECIPIFNT ) 
END 


FUNCTION TERPOL (X1l+* BASE1» x20 BASEQe Y) 


9153. , 
31074He. 
313° 


TCURCR» 


CTAX(25) 6 OTHER(100) 


2506 400% 7HNe 1NDONe 
11016. 
5321936 


YA2e 1N7T4e 


137S3#eoe 
7 
COUT» 


GROSS(T)) 


BASE?» GROSS(I)) 


CTAX» CORTINe 
O0.+eNDEP*eBOTTOMeRATE » 


GIHFOK FAMILIES CtaIMING ITFMIZEN DEDUCTIONS / 


FUNCTION TO INTERPOLATE LINEARLY BETWEFN X1(BASE1) AND X2(BASF2) 


TO FIND VALUE CORRESPONDING TO ARGUMENT Yeo 

Y IS ASSUMED TO BE ON CLOSED INTERVAL (BASE1» 
IF (Y.GT»eBASE1) GO TO 100 

TERPOL X1 

RETURN 
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BASE 2) 


A12ANNRO 
A12AN090 
A12A0100 
A12AN110 
A12A0N120 
A12AN130 
A12AN140 
A12AN150 
A12A0160 
A12A0170 
A12AN180 
A12AN190 
A12AN200 
A12A0210 
A12AN2°0 
A12A0230 
A12A0240 
A12A0N0250 
A12AN260 
A12AN270 
A12AN2A0 
A12A0290 
A12A0300 
A12A0310 
A12AN320 
A12A0330 
A12A0340 
A12A0N350 
A12A0N360 
A12A0370 
A1L2AN3AaN 
A12A0390 
A124N400 
A12A0410 
A12A04A0 
A12A04u3n 
A12A04uu0 
A12AN4G50 
A12A04460 
A12A0470 
A12AN4RN 
A12anuan 
A12An5s500 
A12A0510 
A12A0520 
A12A0530 
A12AN540 
A12A0550 
A12AN560 
A12A0570 


TRPLOOO00 
TRPL 0010 
TRPLONO20 
TRPLON030 
TRPI ON4N 
TRPLOOSO 
TRPI.O0060 


(oem @) 


100 IF (Y¥eLT»BASE2) 


101 


102 


103 


1 


TERPOL = 
RETURN 
TERPOL 
RETURN 
END 


SUBROUTINE APP19 ( BOTTOMe 


4 


GO TO 101 
X2 


X1 + (X2-x1)*(Y=-BASE1) /(BRASE2-BASE1) 


RaTE» CREDe NCLASS» 


ITPOUT 9 


SUBROUTINE TO CONTROL USE OF FINTAB (VFRSION OF 20/APRIL/64) 


GROSS(25) » 


TAXABL(25) > 


COMMON /AVCTAX/ CTXRAT 

COMMON /PRCON/ IDETPRKe ITABPR 

CIMENSION BOTTOM(25)» RATE(3225)¢ CRED(25) » 
NDEP (6) 

CALL SETUP( GROSSe TAXABL+e NOFFXe NDEP ) 

IDETPR = 0 

ITABPR = 1 

Wax = 1 

PSLCECT = 7 

INORMT = 1 

ZERO = “1 

TYPICAL PUBLIC COMPANY 

MAB. = it 

IEXDEF = 1 

CTXRAT = 0-494 

THOLD = 1000000000. 

FOIVCR = le 

FATDIV = 0-5 

FATGNS = 0-5 

FAT105 = Oe 

GOTO “1F0 

TYPICAL PRIVATE COMPANY NOT USING SECTION 105 

IAG =e 

IEXDEF = 5 

CTXRAT = 0.235 

FDIVCR = le 

THULD = i000000000. 

FATDOIV = 065 

FATGNS = 0-25 

FAT105 = O- 

GO TO 110 

TYPICAL PRIVATE COMPANY USING SFCTION 105 

LIAG = 3S 

IEXUEF = 2 

CTXRAT = 0435 

THOLD = 1000000000. 

FDIVCR = le 

FAIDIV = 0-5 

FATGNS = 025 

FATIO5 = 0-5 

GO TO 110 

tXAMPLE CORRESPONDING TO ASSUMPTION IN REVENUE ESTIMATES 

ITAB = 4 

IEXDEF = 4 

CTXRAT = 804./1962.- 


THOLD = e5U0U. 


FOLVCR = 


0.95 


TRPL.0070 
TRPLOORO 
TRPL.OO9N 
TRPLO100 
TRPLO110 
TRPLOL2A0 


AP19N000 
AP190010 
AP190N020 
AP190030 
AP190040 
AP190050 
AP190060 
AP190070 
AP1900a80 
AP19N0090 
AP19°0100 
AP190110 
AP190N120 
AP190130 
AP190140 
AP190150 
AP190160 
AP190170 
AP190N180 
AP190190 
AP190200 
AP190210 
AP190N220 
AP190230 
AP19N240 
AP1°0N250 
AP190260 
AP190N270 
AP19N2A0 
AP190290 
AP190300 
AP190310 
AP1°N32>0 
AP19°0330 
AP190340 
AP190350 
AP19N360 
AP190370 
AP19N3a0 
AP19N390 
AP190400 
AP190410 
AP190420 
AP190430 
AP19N44N 
AP19N450 
AP190460 
AP1°0470 
AP1LEN4AROD 
AP190N490 
AP190500 


RR Gamo el eM eel eae) (Reelin mele aah eu RAI eae 


2D 
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$105D = 604415 AP1°nN510 
ATCBAS = 1962.*(1e=CTXRAT) = S105D AP19N520N 
FATOIV = 450.7/ATCKAS AP19N530 
FAT105 = O- AP19N54N 
FATGNS = FATDIV AP190N550 
GO TO 110 AP1°0560 
105 THOLD = 1000000. AP190570 
ATCBAS = (155.4/450.7) *ATCBAS + $105D AP190N5a0 
FATDIV = 155.4/ATCKAS AP1°9N590 
FAT10S = S1lO5D/ATCBAS AP19N600 
FAIGNS = FATOIV AP19N610 
AP19N620 

110 CALL FNTAB2 (CTXKAT»® FATONIVe FATINSe FNIVCRe FATGNSe ISLECT» AP190630 
S$ ITAXe IEXDEF*e GROSSe TAXABL »® MOFEX*e NDEPe ROTTOMe RATEe CRENe AP190N640 
$ WCLASSe ITPOUTe ITARe IZERO*e THOLD) AP19N650 
IF (CITAX eLT. O) 60 TO 105 AP19N660 
IF CINORMT eNEe 1) GO TO 111 AP1°N670 
GO TO (1620 103¢ 164+ 111)¢6 ITAR AP1°nN6AaN 
111 IF (ISLECT -EQe 2) GO TO 112 AP19N690 
PSCECT =. 2 AP19N700 
PAG. =. AP19N710 
PERO. a. kL AP190720 
INORMT = 1 AP190730 
6O TO 101 AP190740 
112 IF (ITABPR eEQe GU) RETURN AP19N750 
IDETPR = 1 AP1°907640 
ITABPR = 0 AP190N770 
GO TO 100 AP19N7A80 
END AP19N790 
SUBROUTINE FNTAB2 (CTXRAT»e® FaTnrVe FATIOSe FOIVCRe FATGNSe ISLECTeFNTROONO 
S$ ITAXe IEXDEF*e GROSSe TAXABLe® NOFEX* NDEP» BOTTOMe RATE+ CREM» FNTRONO10 
$ WCLASSe ITPOUTse ITABe IPZEROe THOLD) FNTRN0D?20 
FNTROO30 

SUBROUTINE TO COMPUTE APPENDIX TAFLES FOR EXAMPLES OF THF FNTROO&O 
APPLICATION OF ALTERNATIVE CORPORATE TAX SCHEMES (MARCH 18/66) FNTROOSN 
REVISED VERSION 12 SEP/66 FNTRNOG6O 
ARGUMENTS FNTROOT7O 
CTXRAT = AVERAGE CORPORATE TaX PATE ASSUMED FNTRNORD 
FATOIV = FRACTION OF AFTER TAX= CORPORATE INCOME PAIN OUT IN FNTRNOSO 
DIVIDENDS FNTRN100 

FATIO5 = FRACTION OF “AFTER TAX= CURPORATE INCOME PAID OUT IN FNTRO110 
SECTION 165 DISTRIBUTIONS FNTRO120 

FOIVCR = FRACTION OF DIVIDENDS CAPRYING CREDITS FOR CORPORATE TAX FNTRON130 
FATGNS = CAPITAL GAINS AS A FRACTION OF AFTER TaX= CORPORATE FNTRO140 
INCOME FNTRON150 

ISLECT = 102. ALTERNATE TO RE NISPLAYFD (1 DENOTES CURRENT VSe FNTRO160 
PROPOSELDe 2 DENOTES COMPARISONS WITH CICA/CBA PROPOSAL) FNTRO170 

ITAX = lees TAX SHOWN (1 DENOTES PFRSONAL AND CORPORATE TAXe FNTRO1AO 
2 DENOTES PERSONAL TAX ONLY) FNTRN190 

IEXUEF = EXAMPLE DISPLAY DEFINOR (1 DENOTES TYPICAL PURLIC COMPANYFNTRO200 
2 DENOTES TYPICAL PRIVATE COMPANYe 3 DENOTES OR|DINARY FNTRO210 

TITLE DISPLAY AS IN TAYTABe 4& DENOTES EXAMPLES AS PER FNTRN220 

REVENUE ESTIMATES) FNTRO230 

THOLD = INCOME THRESHOLD FOR CHANGE IN ASSUMPTIONS FNTRO240 
OTHER ARGUMENTS AS IN TAXTAB, FNTRBN250 
FNTRO260 

COMMON /PRCON/ IDETPRe ITABPR FNTRO270 


OG Gt) 


Gro) 


Gr), GG 


99 


Pot 


102 
103 


104 


107 


96 


DIMENSION GROSS(25)+* TAXABL(25)5 NDEP(6)6 BOTTOM(25) +e RATE(3#25) 6 
OTHER (100)FNTRO290 


1 CRED(25) 6° CTAX(25)6 TINCR(95)2 TCURCR(25)* TNETI(25) » 
DIMENSION CORTIN(25) 


IF (ITAX eEQ@e -99) GO TO 99 

IBEGIN = 1 

IZERO = i 

KTAX = ITAX 

ITAX = KTAX 

FWIFE = 0-0 

FEMPL = Ue 

FATCI = (1Le@CTXRATIS(1etlLemCTXRAT) #(FATGNS+(12°FDIVCR) *FATOIV) ) 


FDOIV = FATDIV*FATCI 

F1U0S = FAT1O5*FATCI 

FGAINS = FATGNS*FATICI 

FCORP = FATCI/(1.=CTXRAT) 

FALLOC = FCORP = FOIVCR*FDIV = F105 
COKPTX = CTXRAT*FCORP 

FFDVCR = FOIV*FDIVCR 

SUM = FDIV+F105+FGAINS+FALLOC 
(DELETED) 


I7ERO = 0 


CURRENT AND PROPOSED SCHEMES 


ITHRU 1 

ISUBT 0 

vO 104 J = IBEGINe NOFEX 

TAXABL(J) = (1¢ = FCORP + FDIVCR*FOIV = FGAINS) *GROSS(UJ) 
IF (TAXABL(J) «LTe THOLD) Go TO 1011 
IBEGIN = J 

TTAX. S299 

RETURN 

CONTINUE 

TAAABL (J) (1. = FCORP + FOIVCR*FOIV = FGAINS) *GROSS(J) 
TCURCR (J) 0e62*FDIV*GROSS (J) 

EMPLXP = ¢03*GROSS(J) *FEMPL 

IF( EMPLXP=-500.0) 103° 1036 102 
EMPLXP = 500.0 

TNETI(U) = GROSS(J) -EMPLXP 

TInCR(J) = 0.0 

CORTIN(J) = O- 

OTHER(J#25) = 0-615%F105*GROSS (UJ) 
OTHER(U) = 0. 

CTAX(J) = CORPTX*GKOSS (JU) 

TF. CISLECT “EG. 1) GO TO 104 


COMPARISON WITH CICA/CBA PROPOSAL 


ITHRU = 2 

(DELETED) 

TAXABL(J) = TNETI(uU) = (CFCORP+FGAINS+ (1 --FDIVCR) #FNIV) *GRkOSS(S) 
TCURCR(J) = Ue 


OTHER(JU+25) = 0-615%(F105 + FnIV)*GROSS(U) 
OTHER( JU) = FGAINS*GROSS(J) 

CONTINUE 

GO TO 11bu 

OTHER COMPARISON ( UNPROGRAMME:) ) 

RETURN 


SETUP FORK TAXTAB 


FNTRON280 


FNTRN3NO0 
FNTRN310 
FNTAN320 
FNTRO330 
FNTRO340 
FNTRN350 
FNTRN360 
FNTRON370 
FNTRN3a0 
FNTRN390 
FNTROYNO 
FNTROY1O 
FNTRO4U20 
FNTROU30 
FNTROWUO 
FNTROGSO 
FNTROUSO 
FNTBNG70 
FNTROWAO 
FNTRO4ON 
FNTRNSNO 
FNTBNS510 
FNTRO520 
FNTRO530 
FNTROS40 
FNTRO550 
FNTROSEN 
FNTRO570 
FNTROSRO 
FNTROS90 
FNTRN6N00 
FNTRN610 
FNTRN620 
FNTRN630 
FNTRN64N 
FNTRN650 
FNTRN6BN 
FNTRO670 
FNTRN6RO 
FNTROBON 
FNTPN7N0 
FNTRO710 
FNTRO720 
FNTRO730 
FNTRN740 
FNTRO7S0 
FNTRO760 
FNTRN770 
FNTRN7A80 
FNTRN790 
FNTRORNO 
FNTRNB10 
FNTRN@PN 
FNTRNAZO 
FNTRORLO 
FNTRORSO 
FNTRNBEN 
FNTRNAB7N 
FNTRNRRO 
FNT® 0890 


C 
c 


FNTROASNNO 

(DELETED) FNTRNS10 

110 IF (ITAXeEQe2) GO TO 1102 FNTRN9?0 
UO 1101 Y=leNOFEX FNTRN9OAN 

1101 CORTIN(J) =CTAX(U) FNTRONO4N 
1102 ITABNO = ITAbB FNTRN950 
{SUBT = U0 FNT2N960 
ITYPE* =) 0 FNTRO9O7N 
ITITLE = 1 FNTROAQAD 
(DELETED) FNTRNgSON 
FRASER SALT AX FNTRIO0N 

IF (IDETPR eEQGe GO) GO TO 111 FNTR1010 
wRITE (ITPOUT+10) FNTRI0O20 
wRITE (ITPOUTe11) FATDIVe FOIVe FEMPLe FATIOSe Fi0Se FWIFEs FNTRI0N30 

$ FDIVCRe FFOVCRe FATGNSe FGAINSe CTXRAT+e CORPTX*+ FCORPs FALLOCe FNTRIOUO 

$ FATCI+* SUM FNTR1050 
wRITE (ITPOUT*12) FNTR106N 
WRITE CITPOUT®13) ( Ue GROSS(J)*5 TWETI(U)*® TAXARI (JU) 6 TInCR(JU)e FNTRIO7N 

$ TCURCR(J) 6 CTAX(U)0e CORTIN(J) + OTHER(U)*® OTHER(JU+25) 6 GE1LeNOFEX)FNTPINARN 

IF CITABPR -EQ. U) RETURN FNTR109N 

111 CONTINUE FNTRI1NN 
CALL TAXTAB( GROSSe TNETIe TAXAPLs TINCRe TCURCRe CTAXe CORTIM» FNTR1110 

1 NOFEXe ITHRU=1> ITYPEs FwIFE>s FEMPLe FOIVe FGAINSe FDIVCRe FNTP1120 

2 FALLOCe F10Se¢ NDEP»® BOTTOM, RATE * CRFDe NCLASSe FNTR113N 

3 OTHERe ITPOUTse ITABNOe ISURTe IFZERO ) FNTR1140 
IPZERO = 0 FNTR1150 

IF( ITABNO ) 1120 112° 113 FNTR1160 

112 RETURN FNTRI170 
POURS LTYPE:) «124s 1149, 122 FNTRILAN 
114 ITYPE = =-3 FNTP1190 
IF( IZERO ) 1156 1156 116 FNTR1200 

115 ITaBNO = =-1 FNTR121Nn 
GO TO 111 FNTR12200 

116 GO TO ¢( 1196 117-6 118 )»o ITHRU FNTR1230 
PAT LIF ( ITITLE )°4272) 2172011174 FNTR1240 
aa7A ITITLE = 0 FNTR1250 
wRITE (ITPOUTe1) FNTR1260 

GO TO 119 FNTR1270 

1172 wRITE (ITPOUT+4) FNTR1I2AR0 
GO TO 119 FNTR1290 
SPACE FOR TITLE INSERT FOR UNPROGRAMMEN COMPARISON FNTRI3N0 

118 CONTINUE FNTR1310 
119 GO TO ( 1206 121 )e IBASE FNTR 1320 
120 wRITE (ITPOUT?2) FNT81330 
GO TO 1211 FNTR1340 

121 wRITE (ITPOUT? 3) FNTRI350 
1211 IF (IEXDEF-EQ.3) GO TO 111 FNTR1360 
ITYPE = =-8 FNTR1370 

GO TO (12120 12136 Lilie 1214, 1215)0 IFXDEF FNTR13a0 

1212 wRITE (ITPOUT?+5) FNTR1390 
GO TO ill FNTR1I4GON 

1213 wRITE(ITPOUT+6) FNTR1410 
wRITE (ITPOUT?9) FNTRI14AN 

GO TO ill FNTR1430 

1214 wRITE (I1POUT+7) FNTR1440 
GO 10 111 FNTR1450 

1215 wRITE (ITPOUT+6) FNTR14GAN 
wRITE (ITPOUT?8&) FNTR1470 

GO TO 111 FNTR14Aa0N 

122 KETURN FNTR1490 
FNTR1500 

1 FORMAT(37Xe 33HFROM THOSE WHICH WOULD ARISE FROM / FNTR1510 


CR DOW OO. COO GOO Oa Oe O.0 A. GA 
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Y7HTHE MODIFIED PROPOSALS OF THE COMMITTEE OF FOUR ) 

Z3BH( INCLUDING TaAXFS FAID RY CORPORATIONS) ) 

3 FORMAT( 34X* 38H(EXCLUDING Taxes PAID RY CORPORATIONS) ) 

4 FORMAT( 34X* 4OHUNDEK OUR PROPOSALS AND THE ALTERNATIVE / 
 30X*e 4%7HBASED ON THE PROPOSALS OCF THE COMMITTEF OF FOUR) 

5 FORMAT(25Xe¢48HFOR A TAX UNIT WITH INCOME FROM A TYPICAL PURLIC» 
$ 8H COMPANY) 

6 FORMAT(25X*49HFOR A TAX UNIT WITH INCOME FROM A TYPICAL PRIVATE? 
$ &H COMPANY) 

7 FORMAT (20Xe 
SO° 14H Iiv ACCORDANCE / 26X*5uHwTTti 


$ 30Xe 
2 FORMAT( 34Xe 


FNTR1520 
FNTR1530 
FNTR1540 
FNTR1550 
FNTB1560 
FNTR1570 
FNTR15a0 
FNTR1590 
FNTR1600 


52HFOR A TAX UNIT wTTi! CORPORATE SOURCE INCOME COMPOSFFNTR161N 
ASSUMPTIONS UNDERLYING OUR 1964FNTR1620 


$ REVENUE ESTIMATES ) FNTR1630 
8B FOKMAT (31X*e YSHNOT MAKING USE OF SECTION 105 CAPITALIZATIONS ) FNTR1640 
9 FORMAT ( 24Xe SOHCAPITALIZING HALF ITS EARNINGS UNDER SFCTION 105 FNTRB1650 
SPRUVISIONS ) FNTR1660 
10 FORMAT ( THI 41Xs 3SBHINCOME NATA tINDERI YING TAX COMPARISONS 7 1HO)FNT8167N 
11 FORMAT ( 1HOe 5SXe 2lhHlie IwCOMF PARAMETERS / FNTR16AR0 
S$ 1HOe 2Xe GHFATOIVe Fi4eGe Sxe UNFUIVe Fl6Ge6" SX» SHFEMPL se F1Se6 /FNTRI690 
$ 3X0 6HFATINSe Flee SXe 4HEINSe FlbeHe SXe SHFWIFE® Fil5e6 / FNTRI700 
S$ 3X0 BHEFLIVCRe F1l4e60 5SXe LIHFNTV*¥FDIVCRe F9L6 / FNTR1710 
S$ 3X*e GHFATGNSe F1l4-60 5SXe OHEGATNSe FilGe6 / FNTR1720 
$ 3X0 6BHCTXRATse F14.60 SX*e OHCORPTXe F1l4e6 / 28Xe SHFCORPes F15.6 / FNTR1730 
$ 28Xe GHFALLOCs FiYe6 4 3X0 SHFATCI» FiSe60 SXe SHSUMse F17-66 / I1X)FNTR174N 
12 FORMAT (1HO* SXe 25H2- RESULTANT INCOME DATA / FNTR1750 
$ 1HO»e 2H Je 5Xe BHOROSS(J) 6 SXe GHINETI(U) 6 4Xe GHTAXABL (JU) e FNTR1760 
S$ 5Xe BHTINCR(J) s+ 4x SGHTCURCR(JU) 6 OX*e VFHCTAX(J)» 4Xe GHCORTIN( J) 6 FNTR1770 
$ 5X0 BHOTHER(J) + 2xe LIHOTHER(.J4+25) / 1X) FNTR 1780 
13 FORMAT ( I3e 9OF13-2 ) FNTR1790 
END FNTR18N0 
SUBROUTINE TAXTAK( GROSSTe TNETT* TAXARL» TINCRD» TCURCRe CTAY» TXTRNOOO 

1 CORTIN»e TXTRN010 
2 wWNOFEXe IALT» IVYFEe FWIFEe® FEVPLe® FOTVe FGAINSe FDIVCRe FALLOCe TXTRNOAN 
3 FIOSe NDEP»s BOTTUMse RATE? CRFRe NCLASS»e OTHERe ITPOUTs ITAbe TXTRNO3O 
4 I1SUBTe IPZERO) TYTRNNGO 
TXTRNOSO 

SUBROUTINE TO COMPUTE AND PRINT SUMMARY OF TAX CHANGES TxTRNNAN 
bY FAMILY TYPE FOR GIVEN INCOMES (VERSION OF 28/APR/66) TXxTRNN7O 
TxTRNORN 

ARGUMENTS TxTRNOSO 
GROSSI = TAXABLE INCOME UNDER OUkK DEFINITION TXxTROINO 
TNETI = TAXABLE NET INCOME UNDFR OUR DEFINITION TxTRN110 
TAXABL = TAXABLE INCOME REFORE PEPSONAL FXEMPTIONS TXTRNL120 
UNDER CURRENT DEFINITION TXTRN130 
TINCRD = NON=FAMILY TAX CREDITS APPLICABLE UNDER PROPOSALS TXTRN14UN 
TCURCR = NON=FAMILY TAX CREDITS APPLICABLE UNDER CURRENT LAW TxXTRN150 
CTAX = CKEDIT FOR CORPORATE TAx TXTRN160 
CORTIN = CORPORATE TAX ( IF aNY ) INCLUDED IN TOTAL TAX DISPLAYED TXTRN170 
NOFEX = NUMBER OF §F XAMPLFS TXTRNLARO 
IALT = Or le IF NON=ZERO*e COmPAPISON IS TO ALTERNATIVE TXTRN19N 
SCHEME INSTEAD CF CURRENT SYSTEM TxTRN2Nn0 
ITYPE = TYPE OF INCOME OR FAMILY SITUATION TXTRAN2Z1N 
FWIFE = FRACTION OF INCOME OnT*N FY WORKING wIFE TXTRN220 
FEMPL = FRACTION OF INCOME OBT*N AS EMPLOYMENT INCOME TXTRN2Z3N 
FDIV = FRACTION OF INCOME OBT'N AS DIVIDENDS TXTRO2ZU0 
FGAINS = FRACTION GF INCOME OBT*L AS CAPITAL GAINS TXTRN250 
FDIVCR = FRACTION UF DIVIDENNS CAFRYING CREDIT TXTRN246N 
FOR CURPORATE Tax TXTRN270 


OO OD OVO A OF OL Or QC Oy OGG Or Gare i Ort yee rte ey 


ey 


FALLOC = FRACTION OF INCOME OBTAINED AS NON=CASH TXTRNZARN 
ALLOCATION OF TAXED CORPORATF INCOME TXTPN290N 

FIOS = FRACTION OF INCOME OBT'N FROM SFCTION 105 ELECTIONS TxTRNZNN 
NOKP = NUMBER OF DEPENUENTS TXTRN3Z10 
s0TTOM = BOTTOM OF INCOME BRACKFI TXTRN320 
RATE = TAX RATE IN BRACKET TXTRN330 
CREG = FAMILY TAX CREDITS TXTRN3Z4U0 
NCLASS = NUMBER GF INCOME BRACKFIS TXTRN3Z50 
OTHER = OTHER VARIABLES USED IN At TERNATIVE TAX SCHEME TXTRNZAN 
EXCEPT FOR OTHER(JU+25)*6 USED For TAX ON NISTRIBUTIONS WITHFLU AT TXTRN370 
CORPORATE LEVEL TXTROAZAN 
1TAB = TABLE NUMBER (ONLY TITtt& PRINTED IF SET=0) TXTRNZSGN 
ISUBT = ADDITIONAL INDEX FOR TarLE NUMRERING (=0 IF NOT USED) TXTROAYON 
IPZERO = Or 1. IF=le INITIALTZF PAGINATION TXTRNWIN 
ITPOUT = BCD OUTPUT TAPE NUMRER TXTPNY?N 
EXAMPLE DEFINOR (CITYPE) TXTRONKAN 

1 = ONE INCOME RECIPIENT TXTROYKO 

2 = wORKING WIFE TXTANYSO 

3 = DIVILEND AND CaPITAL GAIN INCOME TXTa8N4E4O 

& = TYPICAL SELFeEMPLOYED PROFFSSTONAL TXTROWT7N 

45 = TYPICAL WAGE=EARINER TXTRNYRO 

o& = TYPICAL FARMER OR FISHERMAN TXxTRAYSGN 

7 = TYPICAL INVESTOR TXxTRASON 

8 = SKIP TITLES TXTRNSIN 
NOTE TRAT STANDARD DERMUCTIONS Are DEDUCTED FROM INCOME In ALL TXTRNS?2O 
TAXTAB CALCULATIONS TXTRNS30 
OTHER USES TXTRN540 
IF ITYPE = Ov» CONTROL 1S RETIURN©E LD TO CALLING PROGRAM TXTRNSSN 

FOR PRINTING OF DIFFERENT TITLF. TAXTAR SHOULD TX¥TRNSAD 
THEN BE CALLED WITh ITYPE = -1*IYTYPE TXTROST7N 
TXTROSAON 

COMMON /AVCTAX/ CTXRAT TxTRNSSON 
OCIMENSION GROSSI(25)+6 TNET1(25) +5 TAXABL.(25)* ROTTOM(25) » TxTRNBNN 

1 RATE (3¢25)*0 CREU(25)¢ NUOEP( A)» ATAX(7)» BTAX(7) «6 Al7) +6 B(7). TXTRNG610 

2 DIFR(7)6 EFFRAT( 307025) 0 TINCRI1(25) 2 TCURCR(25)0 EFFMOP (307925) TXTRNGAN 

3 «6 OTHER(100)0 CTAX(25)5 CORTIN(25) TXTRN630 
TXTRN6B4N 

iF( ITYPE ) 94" Q5e 95 TXTRO650 

94 ITYPE = -ITYPE TXTRN64O 
ITITLE = 0 TXxTRN670 

GO TO 992 TXTRN6RO 

95 IPCON = & TXTRN6|SN 
ITITLE = 1 TxTRAT7AN 
ITHRU = 1 TXTROTIN 
IwwIFE = O TXTRN7PN 

EPS "= 61 TXTRO730 

IF (IPZERO - 1) G51le 97+ 96 TXTROT74UN 

951 IPAGE = IPAGE = IPZERO TXTRO7S0 
96 IPAGE = IPAGE+1 TXTRN7TAOD 
GO TO 98 TxXTe®N770 

97 IPAGE = l TXTRO7ARO 
98 IF( ISUBT ) 980" 9800 981 TXTRO790 
980 wRITE (ITPOUT*¢21) ITABe ITHRU, TPAGE TxTRABNO 
GO TO 982 TXTRNB1IN 

981 wRITE (ITPOUT*®29) ITAbe ISUBT, TTHRUe IPAGE TXTRNB?PN 
982 GO TO ( 983» 1151¢6 1191 )e ITHRI! TXTROR30 
983 wRITE (ITPOUT?e1) TXTRNBYD 
IF( ITYPE ) 1076 9&4er 99 TxTRNBSN 

984 IPCON = 6 TXTROR6O 
RETURN TXTRNBTN 

99 IF( ITITLE ) 991* 991» 992 TXTRNBRND 
991 ITYPE = U TxTRNBSO 


992 
100 


101 


102 
1021 


1022 


1023 


103 
104 
105 


106 
107 


1070 
1071 
1072 
10.73 

106 


1080 


1Ua5 


10a1 


1082 


1083 
$ 


1084 


$ 
109 


1091 


KETURN 
GO.10. f 
wRITE (ITPOUT+2) 

GO TO 107 

KFRAC = 100-0*FWIFE+EPS 
WRITE (ITPOUT+3) KFRAC 
wRITE (ITPOUT?4) 

IwwIFeE = 1 

GO TO 107 

IF( FIOS ) 1022+ 1022» 
KFRAC = 100-0*FIOS+EPS 
wRITE (ITPOUT+ 3) KFRAC 
KFRAC = 100-0*FDOIV+EPRS 
wRITE (ITPOUT»*25) KFRAC 
GO TO 10¢3 

KFRKAC = 100¢0*FDIV+EPS 
wRITE (ITPOUT+? 3) KFRKAC 
KFRAC = 100-0*FGAINS+EPS 
wRITE (ITPOUT?5) KFRAC 

KFRAC = 100-e0*FDIVCR + EPS 
wRITE (CITPOUT»®23)KFRAC 
KFRAC = 100-0*FALLOC + EPS 
wRITE (ITPOUT»24)KFRAC 
IPCON = & 

GO TO 107 

wRITE (ITPOUT?6) 

GO TO 107 

wRITE (ITPOUT?7) 

GO TO 107 

wRITE (CITPOUT+8) 

GO TO 107 

aRITE (ITPOUT?9) 

wRITE (ITPOUT*#10)( NOEP(U) » 
IF( ITAB ) 10700 10716 1072 
wRITE (I1POUT+28) 

KE TURN 
60. a0, f 
J=U 
J=Jt1 
VEIN) = Ul 
TInwC = TAXABL(U) 

CFROMI = TCURCR(J) 

iF( IALT ) 1085¢ 1085* 1092 
ATAX(1) = CURTAX( TINC=-1100en» 
IF (IwwIFE) 1082¢ 1082- 1081 
WIFE = FwIFE*TINC 

nHUSbB = TINC = WIFE 

CFiwIlF = FWIFE*TCURKCR(U) 
CFIHUS = TCURCR(J) -— CFIWIF 
LO 109 IT=196 

I eend fie 

Dea NDEP UD) 

I1F( IwwIrE ) 1084 
ATAX(II) = TAXMIN( 
+ OTHER (U+25) 

GO TO 109 

ATAX(II) = CURTAx( 
+ OTHEK(U+25) 

CONTINUE 

IGROSS = GROSSI(JU)/410-0+.5 

GO TO ( 1091+ 1094 )» ICOM 

wRITE (ITPOUT*#11)1IGRGSSe ( 


L022 


107597, 1l6owAZcOr)» 


1084s 
HUSBe 


1083 
WIFE? 


ITHRU 


100 


J=1> 


CFROMI ) 


Me 


TINC=$2100.,0=7%*300-0¢ 


ATAX(1)>» 


100°101+1027103010401N5.1N60107 de 


6) 


CFIHUSe 


LS 


+ CORTIN(J) 


CFROMI ) 


ITYPE 


CFIWIF ) + CORTIN(Y) 


+ CORTIN(J) 


1/2): 


+ OTHFR(JU+25) 


TxTRNONN 
TXTRNOIN 
TXTRN920 
TXTRNO30 
TXTRNOUO 
TXTRNOSN 
TxTRO960 
TXTRN970 
TXTROOARO 
TxTRNOON 
TXTR1000 
TXTR1010 
TXTR1020 
TXTRI030 
TXTR1040 
TXTR1050 
TXTR1060 
TXTR1070 
TXTRIOAN 
TXTR1090 
TXTAI1NO 
TXTBI110 
TXTRI120 
TXTR1130 
TXTR1140 
TXTR1150 
TXTR1160 
TXTRI170 
TXTRILAD 
TXTRI19N 
TXTR1200 
TXTR1210 
TXTR1220 
TXTR1230 
TXTR1240 
TXTR1250 
TXTR1260 
TXTR1270 
TXTR12A0 
TXTR12900 
TXTR1300 
TXTRI310 
TXTR1320 
TXTR1330 
TXTR1340 
TXTR1350 
TXTR1360 
TXTR1370 
TXTR13A0 
TXTR1390 
TXTRIGON 
TXTR1I4IN 
TXTR1420 
TXTR14U30 
TXTRIGUN 
TXTRI4S5O 
TXTR1IGEN 
TXTB1470 
TXTRI4GRD 
TXTR1490 
TXTRI500 
TXTR1510 


101 


vO TO 1094 TXTR1520 
PUOeeneLiVe? sa lNG = S50. TXTRIS30 
ATAX(1) = TAXALT( TINCe CFROMI»® Ge0eVPNe RATEs BOTTOMe NCLASSe CRETXTR154N 

lie OTHERe Je TALT ) + CORTIN(J) + OTHER(JU+25) TXTR1I550 

vQ 1093 L=leo TXTR1IS60 
L]l=I+1 TXTR1570 
V=ENWDEP (I) TXTR15R0 
TPROP = TINC#+72.0*U TXTR1IS590 

Mie = 2 TXTP1600 

if 4OeeG.0)..M =.1 TXTR161N 
1693 ATAX(I1) = TAXALT( TPROP+ CFROMTe® Me De IwWIFEe RATE*® ROTTOMe NCI TXTR1620 
1ASS*e CREUe OTHERe Ue IALT ) + CORTIN( J) + OTHER (+25) TXTRIAZN 

60 TO ( 10955 1094 )+ ICOM TXTR1I64N 
1095 1GROSS = GROSSI(JU)/10.0+ 05 TXTR1650 
wRaTE (CIVPOUT*+26)IGROSSe (ATAX(T)»s I=107) TXTR1I66N 
1094 TIWC = TNETI(J) TXTR1I670 
EMPLXP = e¢O3*TINC*¥FEMPL TXTR16ARN 

1F (EMPLXP eGTe SOU.) EMPLXbP = DUU. TXTRI69N 
TIlwC = TINC = EMPLXP = 50. TXTR1I70N0 
CFROMI = TINCRD(u) TXTR1710 
GROUSS=GROUSSI (J) TXTR1I720 

6 TAX(1) = TAXCOM( TINC*e CFROMI +e Ore Oe RATE®*BOTTOMePNCLASSe CRED» TXTR1730 

1 TXCRED ) = CTAX(u) + CORTIN( GU) TXTR1I74UN 

DO -ll2 I=1+ 6 TXTR1I75S0 

Mi FSatat 1 TXTRI7AN 

D = NDEP(I) TXTR1770 
TPROP = TINC + 72eU*D TXTR17A0N 

M= 2 TXTR179N 

li2 iTAX(II) = TAXCOM( TPROP»e CFROMI + MeDe IWWIFEs TXTR1IBIN 
1 RATE+ BOTTOMe NCLASSe CRED, TXCRED ) = CTAX(JU) + CORTIN(J) TXTRI1RAN 

GO TO ( 1llele 1140 )eo ICOM TXTR1830 
Pieieweibe. ClLIPOUTsI2)( BIAXCIVs 121.7. 7.) TXTR1840 
UO 11S. 1=1e, 7 TXTRIB50 

xX = BTAX(T) = ATAX(I) TXTR1860 

IF (ABS(X) eL Te Ge0005) X = 0. TXxTR1Ia7N 

113 OIFR(I) = X TXTR1a8aN 
WRITE (ITPOUT*®#13)( DIFR(T)» y=i5 7 ) TXTR1B90 

vO 114 Isls 7 TxTRIONO 

X = ATAX(T) TXTRI9O10 

Ze = 9X76RUSS TXTR1920 

re CARSS 2) eo L To "O.0005)” Z"— Oe TXTR1930 
EFFRAT(LeTeJ) = Z TXTR1I94N0 
Ay os x TXTR1950 

X = BTAX(IT) TXTR1I960 

Z2 = X/GROSS TXTRI970 

IF (ABS(Z) eLT- O-0005) 2= 0. TXTR19Aa0 
cFFRAT(2eIeJ) = 2 TXTR1990 

pt Tosa xX TxTR?20NN 

X = BTAX(I) = ATAX(I) TYTR2E01IN 

Z, =vX/GROSS TXTR?2020 

IF (ABS(Z) eLTe 00005) Z2= 0. TXTR2030 

114 EFFRAT(3eIeJ) = 2 TXTR?2040 
ICOM = 2 TXTR2050 
LELTAL = 500.0*TAXABL (JU) /GROSSI (J) TXTR2060 
TAXABL (J) = TAXABL(JU) + DELTaAl TXTR2070 
DELTA2 = 500.0*TNETI( J) /GROSSI (J) TXTR20R0 
TNETI(U) = TNETI(JU) + DELTA2 TXTR2090 
DELTA3 = 500.0*TCURCR(U) /GROSSI (UV) TXxTR2100 
TCURCR(J) = TCURCR(J) + DELTAS TXTR2110 
DELTAY = 500.0*TINCRD(JU)/GROGST (UV) TXTR2120 
TINCRD(J) = TINCRD(J) + DELTAY TXTR?2130 
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1146 
1147 
1148 
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L251 
1152 
116 
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1173 
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DELTAS = (500.0*CTAX(JU)/GROSSI(.)) ) *(0650/CTXRAT) 
CTAX. (UDO STG TANS CU) ee CELTS 

DELTA6 = 500.0*OTHER(J)/GROSSI (J) 

OTHER (J) = OTHER (J) + DELTA6 

DELTA7 = 500.0*0THER(JU+25)/GROSSI (J) 

OTHER (U+25) = OTHER(U+25) + NELTA7 

DELTAB = 500.0*0OTHER(J+50) /GROSSI (u) 

OTHER(U+50) = OTHER(Ut+50) + NELTAR 

DELTAQ = 500.0*OTHER(JU+75) /GROSSI (U) 

OTHER(JU+75) = OTHER(U+75) + NELTAQ 


LELT1O = (500.0*CORTIN(JU)/GROSST (YU) ) *(0-50/CTXRAT) 


CORTIN(J) = CORTIN(J) + DELT10 

GO TO 10680 

DO 1141 I=1°7 

X = (ATAX(1) = A(I))/500.0 

IF (ABS(X) eLTe 0-6-0005) X = 0. 
EFFMAR(1leIeJ) = X 

Y = (BTAX(I) = B(I))/500.0 

IF (ABS(Y) eLT.e 060005) Y = 0. 
EFFMAR(2eIeJ) = Y 

Z= Y=x 

IF (ABS(Z) »eLTe 0-005) 2= 0. 
EFFMAR(3eIeJ) = X 

TAXABL (J) = TAXABL(JU) = DELTal 
TNETI(U) = TNETICU) = DELTA] 
TCURCR(J) = TCURCR(JU) = DELTA 
TINCRD(J) = TINCRD(J) = DELTAY 
CTAX (yu) = CTAX (J) = DELTAS 

OTHER (J) = OTHER (JU) = DELTa6 
OTHER (U+25) = OTHER(U+25) = NEL TA7 
OTHER(JU+50) = OTHER(U+50) = nEt TAP 
OTHER(J*+75) = OTHERK(U+75) = NEL TAS 
CORTIN(J) = CORTIN(J) =- DELT1IO 
LEPC UTR NOPEM OF LIP? 17598455 
IF( J—=IPCON ) 11436 11446 1143 

IF( JeIPCON"9 ) 1146" 11446 1148 
IPAGE = IPAGE+1 

IF( ISUBT ) 11465 1146¢ 1145 

wRITE (ITPOUT+¢30) 11AKe ISUBT, ITHPUr IPAGE 
GO TO 1147 

wRITE CITPOUT*® 22) I1ABe ITHRU, TRAGE 
wRITE (ITPOUT®10) (WOEP(L) +» L=1°6é) 
GOF TOME 106s 2175 1205) eV ETARY 
IJARU S22 

1PaGE = [PAGE+1 

GO TO 98 

wRITE (ITPOUT+14) 

IF( IatT ) 115260 11526 99 

wRITE (ITPOUT?15) 

GO TO 99 

J=uU 

J=Jt1 

IGKOSS = GROSSI(U)/10-0+ ¢5 

IE CAPALT OS) 21272 Toor 7 i 

WRITE CITPOUT*+27)IGROSSe (EFFRAT(1e0IeJ)» T=107) 
560 TOMES 


wRITE (ITPOUT+16)IGRCOSSe ( EFFRAT(1leleJ)» I=ie 7 ) 


WRITE (CITPOUT®17) (EFFRAT(2e¢IeJU)5 Y=1e7 ) 
WRITE (CITPOUT*18) (EFFRAT(30I1,U)+ Y=107 ) 
LE ahd]=, NORE SIee ¢ JOR Gelia 

LEHRUR= 25 

IPAGE = LPAGE+41 


TXTRA140 
TXTR2150 
TXTR2160 
TXTRA170 
TXTRA1R0 
TXTR2190 
TXTR?2200 
TXTR2210 
TXTR?2200 
TXTR2230 
TXTR2240 
TXTR?2250 
TXTR2260 
TXTR2270 
TXTR2280 
TXTR?2290 
TXTRA3N0 
TXTRA310 
TXTRA320 
TXTR2330 
TXTR2340 
TXTRA350 
TXTRA3AD 
TXTRA370 
TXTRAZAN 
TXTRA390 
TXTRA400 
TXTRAE41N 
TXTR2A4AN 
TXTR2430 
TXTRA440 
TXTRO4USO 
TXTR2460 
TY¥TRA4T7NO 
TXTR24RN 
TXTP2490 
TXTR25N0 
TXTRASIN 
TXTRA520 
TXTR2530 
TXTRA540 
TXTR2550 
TXTRA540 
TXTR2570 
TXTP 2580 
TXTRA59N 
TXTR2600 
TXTR2610 
TXTRA6ARN 
TXTR?2630 
TXTR2640 
TXTR?650 
TXTR2660 
TXTR2670 
TXTR26ARN 
TXTR?2690 
TXTR?A7NN 
TXTR?2710 
TXTR?A7ON 
TXT22730 
TXTR2A7UN 
TXTR2750 
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GO TO 98 TXT22760 
1191 wRITE (ITPOUT?19) TXTR?2770 
IF( IALT ) 1192+ 1192* 99 TXTB?2780 
1192 wRITE (ITPOUT+*®15) TXTR?E790 
GO TO 99 TXTR?B800 

120 uv = 0 TXTR?2810 
121 J = Jtl : TXTRABP0D 
IGROSS = GROSSI(JU)/10.0+ o1 TXTR2B30 

IF( IALT ) 12126 12125 1211 TXTR2AR40 
1211 wRITE (ITPOUT*¢27)IGROSS» (EFFMAR(1eIeJ) eo T=107) TXTR2850 
GO TO 1213 TXTR2860 
1212 wRITE (ITPOUT*®16)IGROSSe (EFFMAR(1eIeJ)* I=10°7) TXTR?2870 
1213 wRITE (ITPOUT¢17) (EFFMAR(2eIeJ)5 I=107) TXTR2BAR0 
wRITE (CITPOUT*®20) (EFFMAR(3eITeJ)» I=1¢07) TXTR2R90 

IF( J=NOFEX ) 11426 1229 122 TXTR2900 

122 RETURN TXTR2910 
TXTR2970 

1 FORMAT (1HO* 29Xe 27HCHANGES IN TAX LIABILITIES » TXTR2930 

1 19HUNDER OUR PROPOSALS ) TXTR2940 

2 FORMAT ( 34X* 38HFOR A FAMILY wITH ONE INCOME RECIPIENT ) TXTR2950 

3 FORMAT ( 32Xe 17HFOR A FAMILY wItTHe I3>- TXTR2940 

1 22H PERCENT OF ITS INCOME ) TXTR?2970 

4% FORMAT ( 43Xe 19HFROM A WORKING wIFE ) TXTR29RN 

S FORMAT( 29Xe° 1BHFROM DIVIDENDS ANDe I34¢ 27H PERCENT FROM CAPITAL GTXTR2A990 
1AINS ) TXTRZ0NN 

6 FORMAT ( 33X* 28HFOR A TYPICAL SELF*EMPLOYED » TXTR3010 

1 12HPROFESSIONAL ) | TXTR3020 

7 FORMAT ( 41Xe 25HFOR A TYPICAL wWAGE@EARNER ) TXTR3030 

8 FORMAT ( 37Xe 33HFOR A TYPICAL FARMER OR FISHERMAN ) TXTR3040 

9 FORMAT ( 42X%e 22HFOR A TYPICAL INVESTOR ) TXTR3050 
10 FORMAT ( 1HO / 27H GROSS TAXABLF INCOME UNDER / TXTR3N6D 
1 7X*e L4HOUR DEFINITIONe 33x90 15Hee erm ern mennn,y TXTR3A070 

2 25HFAMILY STATUS OF TAXPAYER: 15Hee eres orem nner / TXTRSO0ARN 

%) 28H EXCLUDING FAMILY ALLOWANCES?¢ 46X» TXTR3090 

uy 28HMARRIED OR HEAD OF HOUSEHOLD TXTR3100 

5 7/ 28nW (BEFORE PERSONAL EXEMPTIONS» TXTR3110 

6 28X* OHSINGLE* 6X0 25Hm@—meRRNIIMRER OF DEPENDENTS? TXTR3120 

7 16H IN FAMILY=-="-= / 1loH WHEN COMPUTING »¢ TXTR3130 

8 L2HCUKRENT TAX) + 26Xe LOHINDTVIDUAL+® I5e ST& / ) TXT®3140 

11 FORMAT ( LHOe [14% 1HO® BXe DYHCURRENT TAX (1966 RATES) » TXT83150 
1 F13.0° F10.0*° SF8.0 ) TXTR3160 

12 FORMAT ( 24Xe 23HTAX UNDER OUR PROPOSALS» TXTRA3Z170 
1 Fi4g.0»e F10-0» 5SF8.0 ) TXTR31AR0 
13 FORMAT ( 24X%» 27HINCREASE OR DFCREASE IN TAX» TXTR3190 
1 F10.0° F10.0° 5F 8.0 ) TXTR3200 
14 FORMAT( LHOe 38Xe27HEFFECTIVE AVERAGE TAX RATES ) TXTR3210 
15 FORMAT(32Xe Y2HUNDER THE CURRENT AND PROPOSED TAX SYSTEMS ) TXTARA220 
16 FORMAT(IHO*e Tide LHO*® BX» 24HCUPRKENT TAX (1966 RATES) 9 Fi4ede TXTR32A30 
1 FO.305F8eS ) TXTR3240 

17 FORMAT( 24X°23HTAX UNDER OUR PROPCSALS#F15e¢30F96595SFA2S ) TXTR3250 
18 FORMAT( 24X*e 24HCHANGE IN EFFECTIVE RATEs F14.30F943505F 8.3 ) TXTR3260 
19 FORMAT( 1HO*e 38X*e 2B8HEFFECTIVE MARGINAL TAX RATES ) TXTR3270 
20 FORMAT( 24X*e 23HCHANGE IN MARGINAL RATE F15e¢30 F9e3e SFAOS ) TXTR32A0 
21 FORMAT( 1H1le SHTABLE* I2e lHee Tle 92X* UYHPAGEs 13 ) TXTR3290 
22 FORMAT( Hie SHTABLEe I2e Hee Tie LOH CONTINUEDs R2Xe 4HPAGE*I3 )TXTR33N0 
23 FORMAT( 17X* BHASSUMINGe I4e 27H PERCENT OF CASH DIVIDENDS » TXTR3310 
1 33HTO CARRY CREDIT FOR CORPORATE TAX ) TXTR3370 

24 FORMAT ( 28X%e 33HAND NON-CASH ALLOCATION OF TAXED ¢ TXTR3330 
1 16GHCORPORATE INCOME / 35X- SHTO BEe 3» TXTR3340 

a 27H PERCENT OF PERSONAL INCOME ) TXTR3350 

25 FORMAT( 32X*° 31HFROM SECTION 105 NISTRIBUTIONSe » I3* 8H PERCFNT )TXTR3360 
26 FORMAT( 1LHOe T1465 1HOe 8Xe SuHAL TERNATIVE TAX PROPOSAL » FideNe TXTA3S370 
27 FORMAT( 1LHOe T1146 1HOe BXe 2uHALTERNATIVE TAX PROPOSAL » Fi14e3%» TXTP 3390 
1 FQ9e35 SF8&e3 ) TXTR34N0 

28 FORMAT( 1H2¢ 35X* 26HASSUMPTIONS NOT CONSISTENT ) TXTR3410 
29 FORMAT( 1Hle SHTABLE*e I20 lHee Tle LHe» Tie 9NXe 4YHPAGEs I3 ) TXTR3Z42P0 
30 FORMAT( iHle SHTABLE*® L225 lHee Tie LHe Ile 10H CONTINUEN? 8UXe TXTR3430 
1 4GHPAGEe 13 ) TXTR3Z440 
END TXTR3450 
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2e GITAN -— PART 2 

2-1 PROCESSING CONTROL SUBPROGRAM 
SUBROUTINE TAXANL (NFAM, KCHNGE) TXNLCOCC 
TXNLCOLC 
SUBROUTINE CONTROLLING TAX ANALYSIS PROGRAM {VERSION OF 4 JUL/66)TXNLCO2C 
NUMBERED AS OF 21 OCT/66 TXNLCO3C 
PURPOSE TXNL CO4C 
TO GENERATE TABLES SUMMARIZING EFFECTS CF TAX REFCRMS ON TAXES TXNLCO5C 
PAID BY INDIVIDUAL TAX UNITS. PRCCESSING OF INDIVIDUAL TAX TXNLCO6C 


RETURNS TO ESTIMATE REFCRM EFFECTS ON TAX BASE ANE TAX CREDITS FORTXNLCO7C 
EACH TAX UNIT IS CONTROLLED BY THIS SUBROUTINE, USING THREE DUMMY TXNLCO8C 


SUBROUTINES TO PROVIDE LINKAGE TO TABLE-GENERATING SUBROUTINES TXNL CO9C 
DUMMY SUBROUTINES FOR TABLE LINKAGE TXNLOLOC 
INLST = SUBROUTINE TO LINK TO INITIALIZING ENTRIES TXNLCLIC 
STOLST = SUBROUTINE TO LINK TC ENTRIES HANDLING ACCUMULATION OF TXNLC1 20 
TABLE DATA TXNL C1 3C 

OUTLST = SUBROUTINE TO LINK TC ENTRIES FOR OUTPUT OF TABLES TXNLOL4C 
ARGUMENTS TXNLCL5C 
NFAM = SUMMARY CF AGGREGATABLE FAMILIES TXNLC16C 
KCHNGE = KLAS INDEX CF QUTPUT SET {=0 IF CUTPUT TC BE GENERATED TXNL CL 7C 
CNLY FOR ALL TAX UNITS) TXNLC18C 

TXNLC1IC 

COMMON /PROGID/ RCASE, ACASEs IPSETs ITSET, SETNC, DATE(2), ITDEFTXNLC2CC 
PROGRAM OQUTPLT IDENTIFICATION TXNLC21C 
RCASE = RATE SCHEDULE IDENTIFIER (A6) TXNLC22C 
ACASE = ASSUMPTICN StT IOENTIFIER (A6) TXNL C2 3C€ 
IPSET = IDENTIFIER CF SET GF TABLES WITH GIVEN CCNSTRUCTION TXNL C24C 
(EQUIVALENT TO VERSICN NUMBER OF PRCGRAM) TXNLC25C 

ITSET = IDENTIFIER OF SET OF TABLES DEPENDENT ON GIVEN PRORATION TXNLC26C 
BASIS AND REFCRM SET TXNLC27C 

SETNO = TABLE SET NUMBER (IPSET BEFORE DECIMAL, ITSET AFTER) TXNL O02 8C 
DATE = DATE OF RUN (A112) TXNLC29C 
ITDEF = TAX UNIT DEFINOR (=I TUDEF) TXNLC30C 
TXNLC31C 

COMMON /PARAM/ ASS(2CO), ALLOW(50), ITUDEF, IDATA, IBASIS, TXNLC32C 

$ IORDER(7), ISPRES(25,2), NSUP, IMINTP, ITPOUT, ITDATA TXNLC33C 
PROGRAM PARAMETERS TXNLC34C 
ASS = ASSUMPTICN PARAMETERS TXNL C3 5C 
ALLOW = ALLOWANCE PARAMETERS TXNLC36C 
ITUDEF = TAX UNIT DEFINITION CF INPUT DATA (1 DENCTES UNAGGREGATECTXNLC37C 
TAXPAYERS, 2 DENOTES HOUSEHOLDS) TXNLC38C 

IDATA = DATA DEFINOR (1 DENOTES CLASS DATA, 2 DENCTES ORIGINALS, TXNLC39C 

3 DENOTES CLASS DATA CN CARDS, & DENCTES M18 QUTPUT) TXNLC4&CC 

IBASIS = PRORATION BASIS FCR ALLOCATING REFORMS (1 DENOTES TXNLC41C 
PRORATION CVER ALL BASE CHANGES, 2 DENOTES SECTION-BY- TXNLC42C 

SECTION PRORATION OF BASE CHANGE EFFECTS) TXNLC43C 

IORDER = LIST OF REFORM CATEGORIES IN CRDER CF PRCRATION TXNLC44C 
ISPRES = LIST OF REFCRMS TO BE SUPPRESSED IN CALCULATIONS TXNLC45C 
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NSUP = NUMBER OF REFORMS SUPPRESSED 

IMINTP = MCNITOR INPUT TAPE 

ITPGUT = MONITOR OUTPUT TAPE 

ITDATA = DATA INPUT TAPE 

COMMON /RSCHED/ BOTTOM(25), RATE(3,25), RSCRED(10)», NCLASS 


RATE SCHEDULE PARAMETERS 


BOTTOM = BOTTOM INCOMES IN EACH TAX BRACKET 

RATE = MARGINAL RATE IN EACH BRACKET UNDER SEPARATE SCHEDULES 
FOR INDIVIDUALS», FAMILIES w/CO DEPENDENT CHILDREN, AND 
FAMILIES WITH DEPENDANT CHILOREN 

RSCRED = TAX CREDITS AND EXEMPT INCOMES 

NCLASS = NUMBER OF TAX BRACKETS 

COMMON /TABCON/ ITABCN, ITABSW(10), IXKSUP(30) 


TABLE PRINT CPTIOQNS 


ITABCN = C’ OR 1e- IF Oy ONLY SUMMARY TABLES ARE PRINTED 
TTABSW = CONTROL FCR CHOICE OF TABLES 
IXKSUP = SwITCH FCR EACH CROSS-CLASSTFICATION CLASS 


IF O, SEPARATE TABLES FOR CLASS ARE NOT PRINTED 
COMMON /CLASFN/ NINKL (3), 
$ INCKL(3), IXKLAS 

CLASSIFICATICN PARAMETERS 


NXKLAS, CLXNAM, KLGIVNy GIVNAM, 


NINKL(K) = NUMBER OF CLASSES IN INCOME CLASSIFICATION K 

NXKLAS = NUMBER OF CLASSES IN THE OTHER CROSS-CLASSIFICATION 
CISPLAYED IN TABLES 

CLXNAM = ALPHA DESCRIPTION OF CROSS-CLASSIFICATION (A6) 

KLGIVN = IDENTIFIER CF GIVEN CLASS FOR TABLES BEING GENERATED 
(=O IF CLASS IS NOT A PRCPER SUBSET OF ALL CANADIAN 
RESIDENT TAX UNITS) 

GIVNAM = ALPHA DESCRIPTION OF GIVEN CLASSIFICATION (A6) 
(WILL BE SET BLANK IF KLGIVN EQUALS ZERO) 

INCKL(1) = INCOME CLASSIFICATION (COMPREHENSIVE TAXABLE INCOME) 

INCKL(2) = INCOME CLASSIFICATION (CURRENTLY ASSESSABLE INCOME) 

INCKL(3) = INCOME CLASSIFICATION (TCTAL ACCRUED INCOME) 

IXKLAS = CROSS-CLASSIFICATION CLASS 


COMMON /FPAR/ MARTALs, IWWIFE, DEPCHs, ODEP 
FAMILY STATUS PARAMETERS FGR GIVEN TAX UNIT 


MARTAL = MARITAL STATUS OF TAX UNIT (0 IF SINGLE, 1 IF MARRIED,» 
2 IF MARRIED WITH ONE OR MORE CHILDREN UNDER 16) 

IWWIFE = IDENTIFIER FCR WORKING WIFE (1 IF WORKING, 2 IF WORKING 
AND WITH DEPENDENT CHILDREN BELOW SCHCOL AGE, 
C OTHERWISE) 

DEPCH = NUMBER OF DEPENDENT CHILDREN 

ODEP = NUMBER OF OTHER DEPENDANTS 

COMMON /ACJUST/ DELTA(10), OTHER(30), UNTAXD(20) 


ADJUSTMENT VARIABLES 


OELTA = ADJUSTMENTS UNDERLYING DERIVATION OF CURRENT TAX BASE 
OTHER = CCMPONENTS OF BASE ADJUSTMENTS NOT SHOWN SEPARATELY 
UNTAXED = INCOME NOT BROUGHT INTO THE COMPREKENSTIVE TAX BASE 
COMMON /TAPWRT/ ITPWRT, ISTOR 

TAPE OLTPUT CPTICNS 
ITPWRT = Cole IF ly INTERMEDIATE CUTPUT IS PUT ON TAPE 
ISTOR = INTERMEDIATE STORAGE TAPE NUMBER 


COMMON /SWITCH/ ISW(25) 
SPECIAL—PURPOSE SWITCHES 
SWITCH 1 TURNS ON EDIT FACILITY 
SWITCH 2 CONTROLS ENDING ON RECORD COUNT 
SWITCH 3 DETERMINES BASIS OF INCOME CLASSIFICATION 
SWITCH 4 SUPPRESSES GENERAL DETAILS IN REVTAB QUTPUT 


TXNLC46C 
TXNLO47C 
TXNL 048C 
TXNLO49C 
TXNL C500 
TXNLO51C 
TXNLC52C 
TXNLOQ5 3C 
TXNLC54C 
TXNL 055C 
TXNLC56C 
TXNLC57C 
TXNL C5 8C 
TXNLO59C 
TXNLO600 
TXNLO61C 
TXNLC62C 
TXNLO63C 
TXNLC64C 
TXNLC65C 
TXNLCO66C 
TXNL C6 7C 
TXNL C68C 
TXNLC69C 
TXNLO7OC 
TXNLC71C 
TXNLC72C 
TXNLO73C 
TXNLC74C 
TXNLO75C 
TXNLO76C 
TXNLC77C 
TXNLC78C 
TXNLO79C 
TXNL C8O0C 
TXNLC81C 
TXNLC82C 
TXNL C8 3C 
TXNL 08 4C 
TXNLC85C 
TXNL C86C 
TXNL CB7C 
TXNL O88C 
TXNLC89C 
TXNLCIOC 
TXNLCI1C 
TXNLCI2C 
TXNLC93C 
TXNL C9I4C 
TXNLC95C 
TXNLC96C 
TXNLCI7C 
TXNLC98C 
TXNLC9OS9C 
TXNL 100C 
TXNL 101C 
TXNL 102C 
TXNL103C 
TXNL104C 
TXNL105C 
TXNL1LO6C 
TXNL107C 
TXNL 108C 
TXNL 109C 
TXNLI1LCC 
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USED IN READIN TO CALCULATE AVERAGES OF SUM ELEMENTS 


SWITCH 5 
SWITCH 6 DEFINES CURRENT TAX CALCULATICN BASIS 
SWITCH 7 CCNTROLS SUBSAMPLE SELECTICN 
SWITCH 8 INCORPORATES EFFECTS OF TAX SHIFTING 
SWITCH 9 DEFINES TOTAL INCOME TO INCLUDE UNTAXED ACCRUALS 
SWITCH 10 REPLICATES ERRORS IN REPCRT CALCULATIONS 
SWITCH 11 ALLOWS FCR READING FLEXIBILITY 
SWITCH 12 OEFINES INCOME CLASSIFICATION GRID 
COMMON /MISPAR/ KCHANG, NBREF, NCRED 
MISCELLANEOLS PARAMETERS 
KCHANG = KCHNGE 
NBREF = NUMBER OF BASE CHANGES CAUSED BY REFCRMS 
NCRED = NUMBER CF CHANGES IN TAX CREDITS ALLOWED 
COMMON /DATA/ KLAS(10)5 SUM(50), BASE(40), CRED(40), 
REFTAX(5), OLDPTX(5), CORTAX(5), GIFTAX(5) 
BASIC DATA ARRAYS 
KLAS = ARRAY OF CLASS DATA FRCM DATA RECORD 
SUM = DATA RECORD FOR GIVEN TAXPAYER CLASS 
BASE = ADJUSTMENTS IN TAX BASE RESULTING FROM REFCRMS 
CRED = TAX CREDITS ASSOCIATED WITH GIVEN REFORMS 
REFTAX = REFORMED BASE, NCN-REFUNDABLE CREDITS, PERSONAL TAXs 
AND CORPCRATE TAX 
OLDPTX = CURRENT TAX BASE, CREDITS, AND TAX ACCRUAL 
CORTAX = CURRENT AND CHANGES IN CCRPORATE TAX YIELCS 
GIFTAX = CURRENT AND CHANGES IN GIFT TAX YIELDS 
KK = 0 
KNTREC = C 
IENC = Q 
KCHANG = KCHNGE 
NBL = 5 
NREC = 0 
CALL KLASFY (KLAS»0.,0., KCHNGE, 1) 
CALL SUPREF (1) 
ITDEF = ITUDEF 
TF CITPWRY .NE. 1) GE T0069 
CALL INLST 
WRITE (ISTOR) RCASE, ACASE, SETNOe DATE, ITUDEF, ASS, ALLOW, 
IBASIS, ITORDER, ISPRES, NSUP» NINKL» NXKLAS» CLXNAMsy KLGIVNy» 
GIVNAM 
GO TO 100 
99 CALL INLST 
IF (KNTREC .NE~ 0) GC TO 1000 
DATA-PROCESSING LCOP 
100 NREC = NREC + 1 
KNTREC = KNTREC + 1 
IF (ISW(2) ~-NE~ O «AND. KNTREC .GTe ISW(2)) IEND = 1 
IF (IEND -EQ. 1) REWIND ITDATA 
OPTIONAL TERMINATION ON RECORD COUNT IF (ISW(2)) SET TO NUMBER 
OF RECORDS TO BE READ 
IF (IEND -EQ- 1) GO TO 101 
CALL READIN (KLAS», SUM, IDATA, TEND, NREC, NBLy_, ITOATA) 
RF LIEN -.EQ sei) GOT” fol 
IF(KK .EQ. O «AND. KCHNGE NE. 0) KK = KLAS(KCHNGE) 
IF (KCHNGE .NE. O -AND. KLAS(KCHNGE) «NE. KK) GO TO 101 
1000 IF (SUM{1) .LE.~ O-) GO TO 100 
CALL FAMPAR (KLAS» SUMs ASS» ITUDEF) 


XN = SUM(1) 


TXNL111C 
TXNL 112C 
TXNL 11 3C€ 
TXNL11L4C 
TXNL1I1L5C 
TXNL 11 6€ 
TXNL117C 
TXNL118C 
TXNL119C 
TXNL 120C 
TXNL121C 
TXNL 122C 
TXNL 12 3C 
TXNL124C 
TXNL125C 
TXNL 126C 
TXNL 12 7C 
TXNL128C 
TXNL 129C 
TXNL 130C 
TXNL131C 
TXNL 132C 
TXNL 133C 
TXNL 134C 
TXNL135C 
TXNL136C 
TXNL 1370 
TXNL 138C 
TXNL139C 
TXNL 140C 
TXNL141€ 
TXNL142C 
TXNL 14 3C 
TXNL 1440 
TXNL 145C 
TXNL 146C 
TXNL 1470 
TXNL 148C 
TXNL149C 
TXNL150C 
TXNLI51C 
TXNL152C 
TXNL153C 
TXNL 154C 
TXNL 155C 
TXNL156C 
TXNL157C 
TXNL 158C 
TXNL159C 
TXNL 160C 
TXNL 161C 
TXNL 162C 
TXNL163C 
TXNL 164C 
TXNL 165C 
TXNL 1660 
TXNL167C 
TXNL 168C 
TXNL 169C 
TXNL 1700 
TXNL171C 
TXNL 1720 
TXNL 17 30 
TXNL174C 
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102 
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CALL XTRAP 

CALL BASACJ(NTAXPR» NBREF) 

IF (NTAXPR .LE~} O) GO TO 100 

ACCINC = REFTAX(1) 

DO 1001 J = ly 20 

ACCINC = ACCINC + UNTAXD(J) 

CALL KLASFY (KLAS, REFTAX(1)/XNy ACCINC/XNy KCHNGE, 2) 

GALE *STOUST 

IF (ITPwWRT .NE~ 1) GO TO 100 

WRITE (ISTOR) KLAS», SUM, INCKLy» IXKLAS, MARTAL, IWWIFE, DEPCH, 
OCEP, BASE, CRED, OLDPTX, CCRTAX, GIFTAX, REFTAX, 
DELTA, CTHER 

GO TO 100 

OUTPUT SEGMENT 

KLGIVN = KK 

CALL OUTLST 

IF (TEND .EQ- 1) GO TO 102 

KK = KLAS(KCHNGE ) 

GCG TQ 99 

IF (ITPWRT .NE~ 1) RETURN 

WRITE (ISTCR) KLAS» SUM, INCKL», IXKLAS», MARTAL, IWWIFE, CEPCH,y 
OCEP, BASE, CRED, CLDPTX, CORTAX, GIFTAX, REFTAX, 
DELTA, OTHER 

RETURN 


END 


TXNL175C 
TXNL176C 
TXNL177C 
TXNL 178C 
TXNL 1790 
TXNL180C 
TXNL1I81C 
TXNL 182C 
TXNL 1830 
TXNL184C 
TXNL185C 
TXNL 186C 
TXNL 1870 
TXNL188C 
TXNL 189C 
TXNL 1900 
TXNLI91C 
TXNL192C€ 
TXNL 193C 
TXNL194C 
TXNL195C 
TXNL 196C 
TXNL 1970 
TXNL198C 
TXNL 199C 
TXNL200C 
TXNL 201C 
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PROGRAM CONTROL ANC PARAMETER INPUT 


RCT -— MAIN 18R2 (GITANy PART 2) M1LERCOCC 
TAX REVENUE AND INCIDENCE ANALYZER (GENERALIZED VERSION, 5 JUL/66)M1ERCOIC 
NUMBERED AS OF 21 OCT/66 M1i8BRCO2C 
M18RCO3C 

COMMON /DEBUG/ IO0BGSW,y KOUNT M1i8RCO4C 
COMMON /TAPWRT/ ITPWRT, ISTOR M18RCO5C 
KOUNT = 14 M18RCO6C 
KOUNT = UPPER LIMIT CN NUMBER OF SETS OF DEBUG OUTPUT OF RECORDS M18RCOTC 
ITDATA = 1 M1LERCOS8C 
ITPAC Tari 2 M1i8RCO9C 
ISTCR = 4 M18RC1OC 
IMINTP = 5 M1i8RCLIC 
ITPOQUT = 6 M18RC12C 

99 IBEGIN = 1 M18RC1 3C 
100 CALL PROGCN (IEND, IBEGIN, IMINTP, ITPCUT, ITOATAy ITPALT, KCHNGE,M18RC14C 
$ ICATA) M1L8RCL5C 
IF( TENG. 260s qe Goats 101 M18RC16EC 
IBEGIN = C MI8BRC1I7IC 
CALL TAXANL {NFAM, KCHNGE) M18RC18C 

GC 10 100 M18RC19C 
101 READ (5,2) ISTOP M18RO20C 
ITPALT = -1 M1LERO2ZIiC 

IF (ISTOP .NE~ 1) GO TO 99 M1LERC22C 

IF (IDATA .«EQ- 3) CALL EXIT M18RC23C 
PRINT 1 M18RC24C 
CALL PAUSE M1LERC25C 
CALL EXIT M1LERC26C 
STOP M18RO27C 

1 FORMAT (58H1 JOB COMPLETED - TC PROCEED, REMOVE TAPES THEN PRESS STML8RO2 8C 
$ART /1HO / 1HO / LHO/ 1LHO ) MLERC2ZIC 

2 FORMAT (15) M18R0300 
END M18RO310 
SUBROUTINE PROGCN (IEND, IBEGIN, MONINT, MONOUT, IDATTP, ITALTTP, PGCNCOOC 

$ KCHNGE, JDATA) PGCNCOLC 
PGCNCO2C 

SUBROUTINE TO CONTROL ITERATICN THROUGH PROGRAM PARAMETER SETS PGCNCO3C 
RENUMBERED FOR GITAN PRINTING PGCNCO40 
ARGUMENT (QUTPUT) PGCNOO5C 
TEND = O,gl- 1 DENOTES END OF ITERATION PGCNCO6C 
ARGUMENTS (INPUT) PGCNCO7C 
IBEGIN = Cole 1 ON FIRST ENTRY PGCNCO8C 
MONINT»MONOUT = MONITOR INPUT AND QUTPUT TAPES PGCNOO9C 
IDATTP, TALTTP = TAPES ON WHICH DATA IS MCUNTED FOR PING-PONGED PGCNC1O00 
READING. IF IALTTP EQUALS -ly INITIALIZATION PGCNO110 

OF PING-PONG READING IS SUPPRESSED. PGCNO12C 

PGCNC13C 


COMMON /PROGID/ 
COMMON /PARAM/ 


RCASE, ACASE, ISETNO, LTSET, SETNO, 


ASS(200)» ALLOW(50), ITUDEFs IDATA, IBASIS, 


DATE(2),I1TDEFPGCNC14C 


PGCNO15C 


aan 


aan 


CHV GGG CCG OGG Cana) 


89 


96 


$ IORDER( 7)», ISPRES(25,2), NSUP, IMINTP, ITPOUT, ITDATA 

COMMON /RSCHED/ BCTTOM(25), RATE(3,25), CRED(10), NCLASS 

COMMON /TAPWRT/ ITPWRT, ISTOR 

COMMON /DEBUG/ IDBGSW, KOUNT 

COMMON /SWITCH/ ISW(25) 

COMMON /TABCON/ ITABCN, ITABSW(LO), IXKSUP(30) 

DIMENSION N(5)»5 SBOT(2555)_9 SCRED(2595)5 ACASNM(5)» RCASNM(5), 
$ SRAT(39 255 5)eKSETNC(5), KBASTIS(5), KORDER( 725), NN(5), 
$ SASS(2C095)_, SALLOW(5095) 9 KSPRES(2592 5) 

DIMENSION KLAS(10), SUM(50) 

IEND = O 

IF (IBEGIN .NE- 1) GO TO lll 

IMINTP = MONINT 

ITPCUT = MONOUT 

IF (IALTTP .EQ. -1) GC TO 89 

ITDATA = IDATTP 

ITPALT = IALTTP 

DO $O I = 1, 200 

ASS(I) = C. 

PESCie.Ghe 50) GOSTO 90 

SUM(I) = C. 

ALLOW(I) = QO. 

CONTINUE 

KLAS(1) = C 

ISKIP1 = °C 

TASS = 1 

READ PROGRAM CONTROL PARAMETERS 

READ (5,2) NRSCHD, NASS, (DATE( I) ,I=1l22)_9 KCHNGE, ITUDEF, IDATA, 


$ NTSETS,» 
= ICATA 


JDATA 


109 


IXKID 


READ OUTPLT SWITCHES 


READ (526) IDBGSWy ITPWRT, (ISW(T)»f=158) 
READ (5,12) (ISW(T), I = Dy 16) 

READ (596) (ITABSW(I), IT=1,10) 

READ (5,7) ITABCN, (IXKSUP(1), I=1,30) 
SWITCH 1 USED IN READIN 

SWITCH 2 USED IN TAXANL 

SWITCH 3 USED IN STOLST AND INLST 
SWITCH 4 USED IN BASADJ AND REVTAB 
SWITCH 5 USED IN READIN 

SWITCH 6 USED IN CURTAX 

SWPECH t7eUSED IN SELECT 

SWITCH 8 USED IN BASADJ AND SUPREF 
SWITCH 9 USED IN CCMSET AND SUPREF 
SWITCH 10 USED IN BASADJ AND INSPRO 
SWITCH 11 USED IN READIN AND BENFTS 
SWITCH 12 USED IN KLASFY 


PRINT PROGRAM CONTROL PARAMETERS 


WRITE 
WRITE 


$ KCHNGE, 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


(ITPOUT,10) 

(ITPOUT,2) NRSCHD, NASS, 
ITUDEF, IDATA, NTSETS 
(ITPOUT,6) IDBGSW, ITPWRT, (ISW(I), 
(ITPOUT,12) (ISW(I),» I = Dy 16) 
(ITPOUT,6) (ITABSW(T), T=1,10) 
(ITPOUT,7) ITABCN, (IXKSUP(I), 
(ITPOUT,11) 


{DATE(I), I=1,2), 


I=1,8) 


I=1,30) 


PGCNC160 
PGCNC17C 
PGCNC18C 
PGCNCi9C 
PGCNC2CC 
PGCNC21C 
PGCNC22C 
PGCNC23C 
PGENC24C 
PGCNC25C 
PGCNC26C 
PGCNO027C 
PGCNC28C 
PGCNC29C 
PGCNC30C 
PGCNC31C 
PGCNO32C 
PGCNO33C 
PGCNC34C 
PGCNC35C 
PGCNC36C 
PGCNO37C 
PGCNC38C 
PGCNO39C 
PGCNC4O0C 
PGCNC4I1C 
PGCNC42C 
PGCNC43C 
PGCNO44C 
PGCNC45C 
PGCNC46C 
PGCNO4 7C 
PGCNC4 8C 
PGCNC49C 
PGCNC50C 
PGCNC5S1C 
PGCNC52C 
PGCNC5 3C 
PGCNO54C 
PGCNC55C 
PGCNC56C 
PGCNO57C 
PGCNO58C 
PGCNO59C 
PGCNOQ60C 
PGCNC61C 
PGCNC62C 
PGCNC63C 
PGCNC64C 
PGCNC65C 
PGCNC66C 
PGCNC67C 
PGCNC68C 
PGCNO690 
PGCNC7CC 
PGCNC71C 
PGCNC7T2C 
PGCNO73C 
PGCNC74C 
PGCNC75C 
PGCNO76C 
PGCNO7T7C 
PGCNC78C 
PGCNO79C 
PGCNO8CC 


OOM 


aa 


aAaOM 


91 


92 


93 


94 


95 
96 


97 


971 


98 


981 


110 


IF (ITPWRT -EQ-e 1) PRINT 5y ISTOR 

IF (ITPWRT .~EQ- 1) WRITE {I TPOUT,5) ISTOR 
IF (IDATA -EQ- 1) PRINT 1 

IF (IDATA -EQ- 1) WRITE (I TPOUT,1) 

IF (IDATA .EQ- 4) PRINT 8, ITAP 

IF (IDATA .EQe- 4) WRITE (ITPOUT,8) ITAP 
IF (IDATA .NE~ 3) CALL PAUSE 


READ AND STORE ALL ASSUMPTION SETS 


CALL PINPUT (ACASE, NASSUM, NALLOW,s 1) 
KTPWRT = ITPWRT 

IF (NASS .EQ.e- 1) GO TO 95 

K = IASS 

ACASNM(K) = ACASE 

WRITE (ITPQUT,12) (CISW(I), I = 9», 16) 
NN(K) = NSUP 

DO 92 I=l»yNASSUM 

SASS(I,K) = ASS(T) 

DO 93 I=l,NALLOW 

SALLOW( I,K) = ALLCW(T) 

DO $4 I=1l»NSuP 

DO S4 J=1e2 

KSPRES(I,gJ,K) = ISPRES(1I,J) 

BASS) = CEASS + 1 

[IF (LASS .LE. NASS) GG TO 91 


READ AND STORE ALL RATE SCHEDULES 


IRSCHD = 1 

CALL INPLT {RCASE) 

IF (NRSCHD .EQ. 1) GO TO 98 
K = IRSCHD 

RCASNM(K) = RCASE 

N(K) = NCLASS 

DO $7 J=1,NCLASS 

SBOT(J,K) = BOTTOM(J) 

DO S97 [=1,3 

SRAT(I,J9K) = RATE(T»J) 

DO G71 J=1510 

SCRED(JeK) = CRED(J) 

IRSCHD = IRSCHD + 1 

IF (IRSCHD .LE- NRSCHD) GO TO 96 


PRINT ASSUMPTION SET 


IF (NASS .~EQ. 1) GO TO 102 

[TASS = 1 

K = [ASS 

ACASE = ACASNM(K) 

NSUP = NN(K) 

ITPWRT = KTPWRT 

IF (ITPWRT .EQ. 1) WRITE (I STOR) KLAS,SUM 
DO $9 I1=lyNASSUM 

ASS(1) = SASS(I,K) 

DO 10C I=1,NALLOW 

ALLOW(I) = SALLOW(I,K) 

DO 101 I =lyNSuP 

DC 101 J =1ly2 

ISPRES(1I,J) = KSPRES(I9J,K) 

CALL PINPUT (ACASE, NASSUM, NALLOW, 2) 


PGCNC81C 
PGCNC8 20 
PGCNO83C 
PGCNO84C 
PGCNC85C 
PGCNO86C 
PGCNC87C 
PGCNC88C 
PGCNO890 
PGCNC9IOC 
PGCNC91C 
PGCNC92C 
PGCNO93C 
PGCNC94C 
PGCNO95C 
PGCNC96C 
PGCNC9IT7C 
PGCNC98C 
PGCNC99SC 
PGCN1000 
PGCN101C 
PGCN102C 
PGCN10 3C 
PGCN104C 
PGCN105C 
PGCN106C 
PGCN107C 
PGCN108C 
PGCN1O9C 
PGCN11LOC 
PGCNLLIC 
PGCN112C 
PGCN113C 
PGCN114C 
PGCN115C 
PGCN116C 
PGCN117C 
PGCN118C 
PGCN119C 
PGCN12CC 
PGCN121C 
PGCN122C 
PGCN123C 
PGCN124C 
PGCN125C 
PGCN126C 
PGCN127C 
PGCN128C 
PGCN129C 
PGCN130C 
PGCN131C 
PGCN132C 
PGCN133C 
PGCN134C 
PGCN135C 
PGCN136C 
PGCN137C 
PGCN138C 
PGCN139C 
PGCN1400 
PGCN141C 
PGCN142C 
PGCN143C 
PGCN144C 


aan 


103 


104 


104 
105 


106 


107 


1 
2 
3 


5 
6 


sta § 


PRINT RATE SCHEDULE PGCN145C 
PGCN146C 

TF UNRSCHD’ SEQ. 1) ~GC 10 105 PGCN147C 
IRSCHD = 1 PGCN148C 
K = IRSCHD PGCN149C 
RCASE RCASNM(K) PGCN150C 
NCLASS = N(K) PGCN151C 
DO 104 J=1,NCLASS PGCN152C 
BOTTOM(J) = SBOT(J,K) PGCN153C 
DO 104 I=1,3 PGCN154C 
RATE(TsJ) = SRAT(I,J9K) PGCN155C 
DO 1041 J=1,10 PGCN156C 
1 CRED(J) = SCRED( JK) PGCN157C 
ITSET 1 PGCN158C 
CALL TAB1l (ITPOUT, RCASE) PGCN159C 
Proce iP le. EG. Fr)” "60 FOFTEO PGCN 1600 
IF (IRSCHD .GT. 1 .OR.~ IASS .GT. 1) GC TO 108 PGCN161C 
PGCN162C 

DEFINE PRCRATION BASIS PGCN 16 3C 
PGCN164C 

READ (5,3) IBASIS, (LORDER(I),1=1l,7), LISET PGCN165C 
K = ITSET PGCN166C 
DO 107 I=1,7 PGCN167C 
KORDER( IK) = IORDER(TI) PGCN168C 
KSETNO(K) = LTSET PGCN169C 
KBASIS(K) = IBASIS PGCN170C 
GO TG 110 PGCN1710 
m= LTTSET PGCN172C 
DG 109 I[=l,7 PGCN173C 
IGROER(I) = KCRDER(I,K) PGCN174C 
IBASIS = KBASIS(K) PGCN175C 
LTSET KSETNO(K) PGCN176C 
RETURN PGCN177C 
PGCN178C 

RETURN TO EXECUTE TAXANL AND/OR ALTERNATIVE PROCESSING PGCN179C 
PGCN18CC 

IT = ITDATA PGCNI81C 
ITPWRT = C PGCN182C 
ITDOATA = ITPALT PGCN183C 
ITPALT = IT PGCN184C 
PROtNTSETS «EQ. 1)" ESKIPIe= PGCN1850 
moses = TISET +1 PGCN186C 
IF (ITSET -LE~ NTSETS) GO TO 106 PGCN187C 
WRITE (ITPOUT,4) PGCN188C 
IRSCHD = IRSCHD + 1 PGCN189C 
IF (IRSCHD .LE- NRSCHD) GO TC 103 PGCN190C 
TASS = IASS + 1 PGCN191C 
IF (IASS .LE~ NASS) GO TO 981 PGCN192° 
IEND = 1 PGCN193C 
KLAS(1) = TEND PGCN194C 
IF (KTPWRT .NE~ 1) RETURN PGCN195C 
WRITE (ISTOR) KLAS», SUM PGCN196C 
END FILE ISTOR PGCN1I97C 
REWIND ISTOR PGCN198C 
RETURN PGCN1990 
PGCN2000 

FORMAT (7CHOMOUNT THE TWO "COMBINED FILES* TAPES CN A3 AND A4& THENPGCN201C 
$ PRESS START J1HO /1HO) PGCN2020 
FORMAT (2155 3X» 2A6y 515) PGCN 20 3C 
FORMAT (915) PGCN204C 
4 FORMAT (62HLPROGRAM COMPLETED FOR THIS ASSUMPTION SET AND RATE SCHKPGCN205C 
$EDULE 4 iX/ XS LX/ 1X 1X) PGCN206C 
FORMAT (SCHOMOUNT NEW *MAIN 18R2 QUTPUT* TAPE ON LOGICAL UNIT, 13)PGCN207C 
FORMAT (1CI5) PGCN208C 
7 FORMAT (15-9 5X, 3012) PGCN209C 


OVO VEY EV OMe OO'Gri©m 


Ooo 


aan 


Tig 


8 FORMAT (SCHOMOUNT OLD *MAIN L8R2 OQUTPUT* TAPE ON LOGICAL UNIT, 13)PGCN210C 

9 FORMAT (78HLML8 OPERATOR INSTRUCTIONS - IF NC SPECIAL INSTRUCT IONSPGCN211C 

$ PRESS START TO PROCEED) PGCN212C 

10 FORMAT (1LH1, 38HMAIN 18R — PRCGRAM CONTROL PARAMETERS / 1HO/1HO) PGCN213C 
11 FORMAT (1HC/1HO/1X, 38HSPECIAL OPERATOR INSTRUCTIONS (CIF ANY) / PGCN214C 

S20 1HO 7 -1HC) PGCN215C 

12 FORMAT (1CX, 815) PGCN216C 
END PGCN21 70 
SUBROUTINE PINPUT (ACASE, NASS», NALLOW, ITENTRY) PNPTOOOC 
PNPTCOLC 

SUBROUTINE TO READ PARAMETER INPUT PNPTCO2C 
NUMBERED AS QF 21 OCT/66 PNPTCO3C 
ARGUMENTS (ALL QUTPUT EXCEPT FOR IENTRY) PNPTCO4C 
ACASE = ASSUMPTION SET IDENTIFIER (A6) PNPTCOSC 
NASS = NUMBER OF ASSUMPTION PARAMETERS (OUTPUT ) PNPTOO6C 
NALLOW = NUMBER OF ALLOWANCE PARAMETERS (CUT PUT) PNPTOO7C 
ENTRY DEFINITIONS (DEFINED BY IENTRY) PNPTCOS8C 

1 READ PARAMETERS PNPTCOSC 

2 PRINT DISPLAY OF PARAMETERS PNPTO100 
PNPTCLIC 

COMMON /PARAM/ ASS(200), ALLOW(50),ITUDEF, IDATA, IBASIS, PNPTO120 

$ IORDER( 7)» ISPRES(2592) 5 NSUP, IMINTP,ITPOUT,ITDATA PNPTO1L3C 
DATA MAXy MAX2,5 MAX3 / Oy Oy O JS PNPTC1L4C 

IF (IENTRY «EQ. 2) GO TO 105 PNPTC15C 
ITPIN = 5 PNPTO16C 
IgPCUT = ¢ PNPTC17C 

READ (ITPIN,s1) ACASE, NSUP PNPTC18C 

100 READ (ITPIN»2) IVAR,y INDEX, VALUE, LIM1, LIM2 PNPTC190 
MM = INDEX PNPTO20C 

IF (IVAR .EQ- 0) GO TO 108 PNPTC21C 
PNPTC22C 

INPUT ENDS ON BLANK CARD PNPT C2 3C 
PNPTC24C 

IF (IVAR -EQ. 3) GO TC 103 PNPTC25C 

IF (LIM1L .EQ. 0) GO TG 102 PNPTO26C 

DO 101 J=LIM1,LIM2 PNPTO27C 

IF (IVAR -EQ- 1) ASS(J) = VALUE PNPTC28C 

IF (IVAR «EQ. 2) ALLOW(J) = VALUE PNPTC29C 

101 CONTINUE PNPTC30C 
MM = LIM2 PNPTO31C 

GO TO 104 PNPTOQ32C 

102 IF (IVAR .EQ. 1) ASS(INDEX) = VALUE PNPT0O33C 
IF CIVAR «EQe 2) ALLOW{ INDEX) = VALUE PNPTO34C 

IF (IVAR -EQe 2 eANDe INDEX -GT~. MAX2) MAX2 = INDEX PNPTC35C 

GO TO 104 PNPTC36C 

103 [SPRESC(INDEX,1) = LIM1 PNPTC37C 
ISPRES(INDEX,2) = LIM2 PNPTO3 8C 

IF (INDEX.GT.~ MAX3) MAX3 = INDEX PNPTC39C 

104 IF (MM .GTe- MAX) MAX = MM PNPTC40C 
GO TO 100 PNPTO410 
PNPTO42C 

PRINT ASSUMPTIONS, ALLOWANCES, AND SUPPRESSIONS PNPTC43C 
PNPTC44C 

105 WRITE (ITPOUT,3) ACASE PNPTC45C 
IF (MAX .GT.- 0) GO TO 106 PNPTC46C 
WRITE (ITPOUT,4) PNPTC47C 

GO TO 108 PNPTO48C 

106 DO 107 I=1,MAX PNPTO49C 
IF (F eLE.} MAX3) WRITE CITPOUTe5)E,ASS(E), ALLOW(I), ISPRES(I,1)_,PNPTC50C 


10 


WN 


NOUS 


15 


$ ISPRES(1,2) PNPTC51C 
IF (1 .GT. MAX3 .AND.ITeLEs] MAX2) WRITE (I TPOUT,6)1,ASS(1),ALLOW( I) PNPTC52C 
IF (I «GT. MAX3 ~AND. I «GT. MAX2) WRITE (CITPOUT,7) I, PNPTC53C 
CONTINUE PNPTC54C 
IF (NSUP .NE. MAX3) WRITE (ITPOUTs8) NSUP», NSUP PNPTO55C 
@ NASS = MAX PNPTC56C 
NALLOW = MAX2 PNPTC57C 
RETURN PNPTO58C 
PNPTC59C 

FORMAT (4Xs,A6915) PNPTO6O0C 
FORMAT (215, F15.0, 215) PNPTC6O1C 
FORMAT (LSHIASSUMPTION SET, 3X5 A6&6 S1HO » SHINDEXs 5Xy PNPTO62C 
$ LOHASSUMPTICN, 6X, SHALLCWANCE, 10 X,12HSUPPRESSIONS/ 1X )PNPTC63C 
FORMAT (LEHONOTHING ENTERED) PNPT C64C 
FORMAT ( I[5,9F16.39F15235 L2Xy [59lHeeI2) PNPTC65C 
FORMAT ( I[5yF16.39F15.3) PNPTC66C 
FORMAT (15,F16.3) PNPTO67C 
8 FORMAT (LHC, 45HNUMBER OF REFCRMS SUPPRESSED NOT AS SPECIFIED, PNPTC68C 
$ 25H (ORIGINALLY SPECIFIED AS» 14, 1H) / PNPTC69C 
$ 1X, 38HREFORMS SUPPRESSED ASSUMED TO BE FIRST, 14, PNPTO70C 
$ 14H OF ABOVE LIST) PNPTC71C 


END 


PNPTC72C 


AaAMAM 


aan 


ico 


10CC 


1001 


101 


102 


Lo3 


105 


110 


A 


164 


114 


2.3 DATA INPUT 


SUBROUTINE READIN (KLAS, SUM, TREAD» TEND, NREC, NBL» ITPIN) 


SUBROLTINE TO READ IN DATA VIA EITHER *READ(ITPIN)* OR *RECORD® 
OR FROM CARDS 


RENUMBERED FOR GITAN PRINTING 


COMMON /SWITCH/ 
COMMON /DEBUG/ IDBGSW, KOUNT 
DIMENSION KLAS(10), SUM(50) 
DIMENSION XMPT(4), DATA(49) 


TSW(25) 


TEND = G 
TF (IDBGSW 
IF (KOUNT .LTe 0) 
GO TO (10C, 101, 
KSW = ISW(11) 

IF (KSW -EQ- ©) READ(ITPIN) 
IF (KSW .GT. 0) READ(ITPIN) 
IF (KLAS(1)-GT.0) GO TO 110 
REWIND ITPIN 
IEND = 1 
RETURN 

CALL RECORD 
IF (TENO.EQ.1 ) 
DO 102 J = ly 50 
SUM(J) = Ce 
CALL ACCUM 
GO TO 110 
NI = 45 

IF (1SW(11) 
READ (5,1C4) 
IF (KLAS(1) 
GO TO 1001 
CALL SPREAD 
IF (TEND .NE~ 
GO TO 100C 


KCUNT - 1 
0 
TREAD 


KCUNT 
IOBGSW 
103, 105), 


«GT. O} 


(SUM(K),» K=1,49) 


(KLAS(K), K=ly, 5)» 
(KLAS(K)», K=1L_9KSW)y 


{KLAS,; CNUM, XMPT, ITPIN) 


GO TO 1000 


DATA, TEND, NREC, NBL» 


{CNUM, XMPT, DATA, SUM) 


ASS Cc) NI = 50 
(KLAS(I), I = ly 
eGT. CC) GO TO 110 


10), (SUM(I), I = le NI) 


(KLAS, 
1) 


SUM, IEND) 
GO TC 110 


DATA MANIPULATION CPTIONS 


TF (OPSWULE CONE! 1) GG) TONER 

CALL EDIT (KLAS, SUM) 

OPTIONAL DATA EDITING 

IF (1SW(5) .NE~ 1) GC TO 113 

XNUM = 100C-/SUM(1) 

DOC 112 K = Ll, 50 

SUM(K) = SUM(K)*XNUM 

OPTION TO CONVERT TG GROUP AVERAGES 
CONTINUE 

RETURN 


FORMAT(10I14 / (7F10.0)) 
END 


RDINCOCC 
RDINCOLC 
RDINCO2C 
RDINCO3C 
RDINCO4C 
RDINCOSC 
RDINCO6C 
RDINCOT7C 
RDINCO8C 
RDiNCO9C 
RDINC1OC 
RDINCLIC 
RDINCL2C 
RDINC13C 
RDINC14C 
RDINC15C 
RDINCL6C 
RDINC17C 
ROINCL8C 
RDINCLIC 
RDINC20C 
RDINO2Z1C 
RDINO22C 
RDINC23C 
RDINC24C 
RDINC25C 
RDINC26C 
RDINC27C 
RDINC28C 
RDING29C 
RDINC30C 
RDINC31C 
RDINC32C 
RDINC33C 
RDINC34C 
RDINC35C 
RDINO36C 
RDINC37C 
RDINC38C 
RDINC39C 
RDINC4OC 
RDINC41C 
RODINC42C 
RD INO4 3C 
RDINC44C 
RDINC45C 
RDINO46C 
RDINC47C 
RDINC48C 
RDINC49C 
RDINC5OC 
RDINC51C 


GG 


100 


115 


SUBROUTINE SPREAD (KLAS», SUM, TIEND) 

NUMBERED AS OF 21 OCT/66 

DIMENSION KLAS(10), SUM{50), DUMMY1(54), DUMMY2(108) 
DATA KK / C / 

IENC = 0 
KOMPAR = C 
IF (KK .NE. KOMPAR) GC TOC 100 
ISTCR = 3 

READ (ISTCR) DUMMY1L 

READ (ISTGR) KLAS, SUM, DUMMY2 
IF (KLAS(1) .GT. C) RETURN 
IEND = 1 

REWIND ISTOR 

RETURN 

END 


SUBROUTINE EDIT (KLAS, SUM) 
SUBROUTINE TO ALLCW USER TC DC EDITING ON INPUT DATA 
DIMENSION KLAS(10), SUM(50) 


RETURN 
END 


SPRDCOCC 
SPRDCO1C 
SPRDCO2C 
SPRDCO3C 
SPRDCO4C 
SPRDCOSC 
SPRDCO6C 
SPRDCO7C 
SPRDCO8C 
SPRDCO9C 
SPRDC1OO 
SPRDC1I1C 
SPRDC12C 
SPRDC13C 
SPRDC14C 
SPRDC15C 


EDITCOOC 
EDITCOIC 
EDITCO2C 
EDITCO3C 
EDITCO4C 
EDITCOSC 
EDITCO6C 


AADNMNANANAAN 


CL GG) CEG CG? 


116 


204 BASIC CALCULATICNS 


SUBROUTINE FAMPAR (KLAS, SUM, ASS, ITUDEF) 


SUBROUTINE TO INITIALIZE FAMILY STATUS PARAMETERS 
NUMBERED AS OF 21 OCT/66 
ARGUMENTS 
KLAS = CLASS IDENTIFIER ARRAY 
SUM = CLASS VARIABLE ARRAY 
ASS = ARRAY OF ASSUMED PARAMETERS 
ITUDEF = TAX UNIT DEFINITION (=1 OR 2. IF 1, TAX UNIT IS 


UNAGGREGATED TAXPAYER, IF 2, TAX UNIT IS HOUSEHOLD) 


COMMON /FPAR/ MARTAL», IWWIFE, DEPCH, ODEP 
OUTPUT VALUES IN FPAR CCMMON 


MARTAL = MARITAL STATUS OF TAX UNIT (0 IF SINGLE» 1 IF MARRIED, 


2 IF MARRIED WITH CHILDREN UNDER 16) 


IWWIFE = IDENTIFIER FOR WORKING WIFE (1 IF WORKING, O OTHERWISE) 


DEPCH = NUMBER OF DEPENDENT CHILDREN PER TAXPAYER 
ODEP = NUMBER OF OTHER DEPENDENTS PER TAXPAYER 


DIMENSION KLAS(10), SUM(50), ASS(200), MSTAT1(7), MSTAT2(7), 
$ IWFEM(26), Iww2(7) 
DATA MSTAT1 4S 3%*1l,y 4*0/ 
DATA MSTAT2 / 6¥1l, O/ 
DATA IWFEM J/ OylegOglyOels 5¥*0y ly 14*0/ 
DATA IWW2 /09 O» Oe ly is ly OF 
XN = SUM(1) 
IF) OXNI2GT. Oe) 
KLAS(2) = C 
RETURN 
100 « = KLAS(1) 
IF (ITUDEF .EQe. 1) 
MARTAL = MSTAT2(K) 
IWWIFE = IWW2(K) 
GO TO 102 
101 MARTAL = MSTATL(K) 
IWWIFE = C 
KK = KLAS(4) 
IWSEX = IWFEM(KK) 
IF (IWSEX -EQ- 1 eANDe KLAS(1L)-LE. 5) 
102 IF (MARTAL .~EQ. O) GC TO 103 
DEPCH = ASS(23)*SUM(4)/XN + ASS(1)*SUM(3)/XN 
ODEP = ((1l- — ASS{(1))¥*SUM(3) + (1. -— ASS(23))*SUM(4))/XN 
IF (IWWIFE .EQ. 1 -AND. DEPCH*ASS(22) GT. 1.) IWWIFE = 2 


GC TO 100 


GO TO 101 


IWWIFE = 1 


IF (DEPCH .~GE.~ ASS{(61)) MARTAL = 2 
GO TO 104 

103 ODEP = (SUM(3) + SUM(4))/XN 
DEPCH = OQ. 


104 XMPTNS = SUM(2)*1C000~. + SUM(3)*550. + SUM(4)*300. + SUM(5)*500. 


CHECK FOR INCONSISTENCY IN EXEMPTICGN ALLOCATICN 


IF (XMPTNS eLTs SUM(6)) SUM(2) = SUM(2) + (SUM(6) - XMPTNS)/1000. 


XX = MARTAL + 1 
IFIMARTAL~EQ.2) XX=2. 
IF (SUM(2) «GT. XX#*®XN) SUM(2) = XX*#XN 


FMPRCOCC 
FMPRCOLC 
FMPRCO2C 
FMPRCO3C 
FMPRCO4C 
FMPRCO5C 
FMPRCO6C 
FMPRCO7C 
FMPRCO8C 
FMPR COSC 
FMPRCLCC 
FMPRCLIC 
FMPRCL2C 
FMPRC13C 
FMPROL4C 
FMPRCLSC 
FMPRCLEC 
FMPRCLIC 
FMPRC18C 
FMPRC19C 
FMPRO2OC 
FMPRC21C 
FMPRO22C 
FMPRC23C 
FMPRC24C 
FMPRC25C 
FMPRC26C 
FMPRC27C 
FMPRC28C 
FMPRC29C 
FMPRC30C 
FMPRC31C 
FMPRC32C 
FMPRO33C 
FMPRC34C 
FMPRC35C 
FMPRO36C 
FMPRC37C 
FMPRC38C 
FMPRO39C 
FMPRO4OC 
FMPRC41C 
FMPRC42C 
FMPR043C 
FMPRC44C 
FMPRC4.5C 
FMPRO46C 
FMPRO47C 
FMPRC48C 
FMPRC49C 
FMPRC5OC 
FMPRC51C 
FMPRC52C 


ANAaAaM 


1CC 


1001 


101 


102 


103 


B kay 


IF (SUM(16)/XN .LT.»j 11002) IWWIFE = 0 

NOTE THAT CONDITICNAL ASSIGNMENT IS NECESSARY ONLY FOR 
UNAGGREGATED FAMILIES 

RETURN 

END 


SUBROUTINE XTRAP 


SUBROUTINE TO MODIFY ELEMENTS OF SUM ARRAY FOR EXTRAPOLATION 
OF TAX REVENUES TO SUBSEQUENT YEARS 
RENUMBERED FOR GITAN PRINTING 


COMMON /PARAM/ 

$ IORDER(7} » 
COMMON /DATA/ 
$ REFTAX(5), 


ASS(200), ALLCW(50), ITUDEF, IDATA, IBASIS, 
ISPRES (2592). NSUP, IMINTP, ITPOUT, ITOATA 
KLAS(10), SUM(50)_, BASE(40), CRED(40), 
OLDPTX(5), CORTAX(5), GIFTAX(5) 


DELTA = le + ASS(70) 

DC 100 I = ly 45 

SUM(I) = DELTA*SUM(T) 
DO 1001 I = 47s 5C 
SUM(I) = DELTA*SUM(T) 
DELTA = ASS(71)¥*SUM(16) 


SUM(16) SUM(16) + DELTA 
SUM(4C) SUM(40) + DELTA 

DO 101 I = 18, 19 

DELTA = ASS(72)*SUM(T) 

SUM(I) = SUM(I) + DELTA 

SUM(4C) = SUM(40) + DELTA 

DELTA = ASS(73)*SUM(17) 

SUM(17) = SUM(17) + DELTA 
SUM(4C) = SUM(40) + DELTA 

FCTR = (CL. + ASS(72))*SUM(18) + (1. + ASS(73))*SUM(17)) / 
See UOUM TILT)? + SUMMIT TS) 

SUM(23) = FCTR*¥SUM(23) 

SUM(5C) = (1. + ASS(73))*SUM(50) 
DELTA = ASS(74)*SUM(20) 

SUM(2C) = SUM(20) + DELTA 
SUM(4C) = SUM(40) + DELTA 

DELTA = ASS(75)*SUM(25) 

SUM(25) = SUM(25) + DELTA 
SUM(4C) = SUM(40) + DELTA 
SUM(3C) = (Le + ASS(75))*SUM(30) 
Porio2 {| =)265 28 

DELTA = ASS(76)*SUM(I) > 

SUM(IT) = SUM(T) + DELTA 

SUM(4C) = SUM(40) + DELTA 

DELTA = ASS(76)¥*SUM(29) 

SUM(29) = SUM(29) + DELTA 
SUM(41) = SUM(41) + DELTA 
SUM(31) = (1. + ASS(76))*SUM(31) 
DE-102 I = 475° 49 

SUM(I) = (1. + ASS(76))*SUM(T) 
RETURN 

END 

SUBROUTINE BASADJ (NTAXPR, NBREF) 


95911—9 


FMPRC53C 
FMPRC54C 
FMPRC55C 
FMPRC56C 
FMPRC57C 


XTRPCOOC 
XTRPCOLC 
XTRPCO2C 
XTRPCO3C 
XTRPCO4C 
XTRPCO5C 
XTRPCO6C 
XTRPCO7C 
XTRPCO8C 
XTRPCOSC 
XTRPC1QO 
XTRPOLIC 
XTRPC12C 
XTRPC13C 
XTRPC1L4C 
XTRPC15C 
XTRPC16EC 
XTRPCLIC 
XTRPC18C 
XTRPCLOIC 
XTRPC2CC 
XTRPC21C 
XTRPO22C 
XTRPC23C 
XTRPO24C 
XTRPO25C 
XTRPC26C 
XTRPC27C 
XTRPC28C 
XTRPO29C 
XTRPO30C 
XTRPC31C 
XTRPO32C 
XTRPO33C 
XTRPC34C 
XTRPC35C 
XTRPC36C 
XTRPC37C 
XTRPC38C 
XTRPC39C 
XTRPC40C 
XTRPC41C 
XTRPO42C 
XTRP O04 3C 
XTRPC44C 
XTRPC45C 
XTRPC46C 
XTRPO47C 
XTRPC48C 


BSOJCOCC 


C 
C 
C 
C 
C 
C 
C 
C 
C 
100C 
C 
C 
C 
98 
99 
100 
101 
C 
C 
C 
1011 


118 


SUBROUTINE TC ADJLST TAX BASE (VERSICN CF 29 JUN/66) 


RENUMBERED FOR GITAN PRINTING 


ARGUMENTS 


NTAXPR = NUMBER OF TAX UNITS IN CLASS 
NBREF = NUMBER OF BASE REFCRMS 


ALLCW(50), 
NSUP, IMINTP, ITPOUT, 
RATE(3925)y RSCRED(10)» 
CCMMON /DATA/ KLAS(10), SUM(50), BASE(40), CRED(40), 

REFTAX(5), OLDPTX(5), CORTAX(5), GIFTAX(5) 
COMMON /FPAR/ MARTAL,IWWIFE, DEPCH,ODEP 
COMMON /MISC/ CHRYA, WAGES» S105D, CORBAS», PRCEED, 
DCH300, DCH550, F300, F550, FCHLDN, CTH300, OTH550 
COMMON /ADJUST/ DELTA(10), OTHER(30), UNTAXD( 20) 
ADJUSTMENTS UNDERLYING ESTIMATE OF CURRENT BASE 
CCMMON /SWITCH/ ISW(25) 
DIMENSION TCRED(2) 


ITUDEF, IDATA, IBASIS, 
ITDATA 


NCLASS 


COMMON /PARAM/ 
IOROER(7), 
COMMON /RSCHED/ 


ASS(200), 
ISPRES(2592)% 
BOTTOM(25) , 


NBREF ae 

NCRED 7 

DO 1000 J = ly, 30 

OTHER(J) = QO. 

NTAXPR = SUM(1) + 25 

XN = SUM(1) 

FRET =ASS(38)*SUM(5)/XN 

FRACTION OF TAX UNITS IN CLASS ASSUMED TO BE RETIRED 
PENSN = FRET*SUM(16) 

WAGES = (SUM(16) - PENSN)/XN 

WAGES ARE DEFINED TO EXCLUDE PENSION INCOME 


SEMPL = (SUM(17) + SUM(18) + SUM(19) # SUM(20))/XN 
CHRYA = O. 
IF (SUM(3) -GTe Of ~AND. DEPCH .~GT.e- O-) CHRYA = ASS(39)*SUM (3) 


CRILDREN RECEIVING YCUTH ALLOWANCES 


DELTA(1) = ASS(69)*CHARTY(SUM, ASS, ALLOW, XN) 
DELTA(2) = -—XN*¥(1. — ASS(58))*CPP(WAGES,SEMPL,ADD) 
OTHER(4) = ADD¥*¥XN*(1. - ASS(58)) 

DELTA(3) = 900.¥*(1l. - ASS(42))*SUM(5) 

DELTA(4) = 500.*(1. —- ASS(42))*SUM(5) 


00 $8 J = 5, 10 
DELTA(J) = QO. 
OLDPTX(1) SUM(4C) -— SUM(41) 


DO $9 J = ly 10 

OLDPTX(1) = OLDPTX(1) + DELTA(J) 

OLDPTX(2) = SUM(30) + SUM(31) 

OLDPTX(3) = CURTAX(OLDPTX(1L)/XNy CLOPTX(2)/XN) * XN 
DO 1CO0 J=1l,NBREF 

BASE(J)=0 

CRED(J)=0 

DO 101 J=1%5 


CORTAX(J)=C 
GIFTAX(J) = O 
IF (NTAXPR.LE-O) RETURN 


PERSONAL EXEMPTIONS 


XMPTN = O 

DO 1011 I = ly 2 

XX = I 

RATIO = SUM(2)/(XX*XN) 

IF (RATIO .GT. le) RATIO = l. 


BASE(I) = RATIO*®XN#(1000.*XX - ALLOW(I+5) ) 
XMPTN = XMPTN + BASE(I) 


—- XMPTN 


BSCJCO1C 
BSOJCO2C 
BSBJCO3C 
BSDJ004C 
BSDJCO5C 
BSDJCO60 
BSDJCO7TC 
BSOJO0O8C 
BSOJ COSC 
BSOJC100 
BSDJC11C 
BSOJC12C 
BSOJC1 3C 
BSDJC14C 
BSOJ015C 
BSDJC16C 
BSDJC17C 
BSDJ018C 
BSDJC19C 
BSDJC200 
BSDJC21C 
BSDJC22C 
BSOJC2 3C 
BSDJC24C 
BSOJC25C 
BSCJC26C 
BSOJC27C 
BSDJC2 8C 
BSDJC29C 
BSOJC3CC 
BSDJ0310 
BSDJC32C 
BSDJC33C 
BSODJC34C 
BSDJ0Q35C 
BSDJC36C 
BSOJC37C 
BSDJC38C 
BSOJC39C 
BSOJ040C 
BSOJC41C 
BSDJC42C 
BSOJC43C 
BSDJC44C 
BSCJC450 
BSDJC46C 
BSOJC47C 
BSDJC48C 
BSDJC49C 
BSOJC50C 
BSOJC51C 
BSDJC52C 
BSOJC53C 
BSDJC54C 
BSOJC55C 
BSDJC56C 
BSDJC57C 
BSDJC58C 
BSOJ059C 
BSDJC600 
BSDJC61C 
BSOJC62C 
BSDJC6 30 
BSDJ064C 


om ee 2) 


oon 


1012 


1013 


1014 


102 


DCH20C 
DCH55C 
TF (DCH5 
DCH30C 
DCHS550 
DEPCH = 
OTH320C = 
OTH550 = 
ODEP = ( 
FCHLDN = 
IF (DEPC 
F30C = F 
IF (FCHL 
poaau = F 
BASE(29) 
BASE (30) 
fa50e 
BASE(26) 
CREC(7) 
CRED(1) 
CRED(5) 


CORPORAT 


IF (ASS( 
CALL COR 
S105TX 
BASE (35) 
BASE(3) 
BASE(4) 
BASE(5) 
BASE(34) 
CORTAX(1 
CORTAX(2 
CORTAX(3 
CREC(2) 
CRED (8) 
CRED(9) 
OLDPTX(4 
TXDRET = 
IF (1SW( 
BASE(3) 
BASE(4) 
CRED (8) 
CRED(9) 
IF (1SW( 
RETNS = 
TXDRET 
BASE(5) 
TOTCBS 
TXDCBS 
+ BASE 


OTHER B 


BASE(6) 

IF (BASE 
IF (SUM{( 
BASE(7) 

OTHER(1) 
BASE(32) 
BASE(8) 

BASE(9)= 
BASE(1C) 
iF Un ASE 
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119 
ASS(23)¥*SUM(4) 
ASStELFSUM{ sy 


pomecrse 50a) ~~ GO Toe 1012 
DEMS004— GCHd50 
C. 


(CCH300 + DCH550)/XN 
(Pe sseAsSt22)) )FSUR (4) 
(Le — ASS 1))*SUM(3) 

OTH300 + CTH55C)/XN 
XN 

H eLTe 

CHLON 

DN eGT. DCH300) 

CHLDN —- F300 
= F300*(300~. — ALLOW(8)) + F550*(550. 
= (DCH300 - F300)¥*(300. 

- ALLOW(10)) 

= OTH300*(300-. — ALLCW(11)) + OTH550*(55C. 
FCHLDN¥(RSCRED(3) + RSCRED(6)) 

(DEPCH*®XN — FCHLDN) *RSCRED(3) 

ODEP*XN¥*ALLOW(1) 


le) FCHLDN = DEPCH*XN 


F300 = DCH300 


- ALLOW(10)) 
- ALLOW(9)) + (DCH550 - F550)* 


—- ALLOW{(12)) 


E SOURCE INCOME 

6) eLE. O- -ORe ASS(2) -LE~ O-)} GO TO 102 

ADJ (FRET, XN» UNREPD, CORBAS, ALLBAS, ALLADD, 
e CTADDL, CTADD2, UNTOIV, DEFDIV, GOCOWL, 
UNREPD 
ALLBAS 
ALLADD 

= TXBLGN*(1. 
= -DEFDIV 
OLDCTX + SLO5STX 
CTADD1 —- S1LO5STX 


OLOCTX, 
TXBLGN, DEFGN) 


- ALLOW(16)) 


= 
= 
a= 
= ALLOW(15)*ASS(90)*(CLDOCTX + CTADD1) 
= ALLOW(15)*ASS(90) *CTADD2 
WS 
Q. 
LJ iesEQsuld: +60. To TOs 
SUM(25) + UNREPD - UNTDIV 
C. 
ALLOW(15)*BASE(3) 
Ce 
14) ~EFEQ. 1) GC TO 1014 
ALLBAS/ASS(90) - (QLDCTX + CTADDL + CTADD2) 
(1. — ALLOW(16))*ASS(96)*RETNS 
(1. — ALLOW(16))*ASS(96)*GOODWL + TXDRET 
CORBAS + ALLADD/ASS(90) 
SUM(25) + UNREPD -— DEFDIV 
(3) + BASE(4) + TXDRET 


CORBAS 


uu uo 


USINESS AND PROPERTY INCOME 

= ASS(8)*SUM(29) 

(6)/XN eLT. ASS(45)) BASE(6) = O.- 

25)/XN -LTe ASS(60)) BASE(6) = O.- 

= (1. - ALLOW(16))*ASS(10)*SUM(17) 
= ASS(97)¥*ASS(9)*SUM(21) 


(Le — ALLCW(16))*(CTHER(1) + ASS(109)*ASS(11)*SUM(27)) 


= -ASS(12)*SUM(22) 
—-ASS(13)*SUM(24) 

= ASS(14)¥*SUM(27) 
(10) «GT. ASS(37) ¥*XN) 


BASE(10) = ASS(37)*XN 


BSDJC65C 
BSOJC660 
BSDJO67C 
BSDJC68C 
BSOJC69C 
BSDJCTOC 
BSOJC71C 
BSDJC72C 
BSUS C7 3C 
BSDJCT4C 
BSDJC75C 
BSDJC76C 
BSDJCTIC 
BSDJCT8C 
BSDJC79C 
BSOJCBOC 
BSDJCB8I1C 
BSOJC82C 
BSDJC83C 
BSDJC84C 
BSDJC85C 
BSDJC86C 
BSOJCBIC 
BSDJC88C 
BSDJC89C 
BSOJCICC 
BSOJCI1C 
BSOJC92C 
BSDJ093C 
BSDJC9I4C 
BSOJCI5C 
BSCJC96C 
BSDJC9ITC 
BSDJCIBC 
BSDJC99C 
BSDJ100C 
BSOJ1LO1C 
BSDJ102C 
BSDJ103C 
BSDJ104C 
BSDJ105C 
BSDJ106C 
BSDJ107C 
BSOJ108C 
BSOJ109C 
BSDJ110C 
BSOJLILIC 
BSOJ112C 
BSOJ11 30 
BSOJ114C 
BSOJ115C 
BSDJ 1160 
BSOJ117C 
BSDJ118C 
BSDJ119C 
BSDJ 1200 
BSOJ1210 
BSO0J122C 
BSDJ 1230 
BSOJ124C 
BSDJ125C 
BSDJ126C 
BSDJ 1270 
BSDJ128C 
BSOJ129C 


AO 


aan 


ieee) 


CHOre) 
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120 


XX = SUM(4C) — ASS(27)*XN 

IF (ISwW(1C) -EQe. 1) XX = SUM(40) - ASS(27) 
Pe UXX sl TT. 0.) XX = Oo 

BASE(11L) = ASS(15)*SUM(27) + ASS(16) *XX 
BASE(1L1)= BASE(11)* (1.-ASS(17)*SUM(5)/ XN ) 
BASE(12)= ASS (18) * BASE(11) 


FUDGE FACTORS 


BASE(11) = ASS(52)*BASE(11) 

BASE(12) = ASS(53)*BASE(12) 

BASE(31) = O- 

CORTAX(4) = —-ASS(44)*#(SUM(36) + SUM(37)) 

EMPLOYMENT INCOME 

EMPXP = EMPLXP(WAGES,ASS) 

BASE(13) = —XN*EMPXP 

TF (1ISW(1C) .~EQ.- 1) FRET = OQ. 

BASE(14) =-XN* OPXDED (WAGES, SUM(12) »,SUM(1L1),FRET,EMPXP, ALLOW,XN) 
BASE(15) = BENFTS (WAGES, (SUM(18) + SUM(19))/XN, SUM(17)/XN, 


SUM(23)/XNo XNe ASS)*XN 
BASE(16) = O- 
CREC(3) = C 
IF (IWWIFE .GE. 1 AND. DEPCH .GT. O-) CRED(3) = ALLOW(4)* XN 
IF (IWWIFE .GE. 1 «AND. ITUDEF .EQ. 1 «AND. KLAS(1) ~-EQe 5) 
CRED(3) = ALLOW(4)*XN 
IF (IWWIFE-EQ.2) CRED(3)=CREO(3) + ALLOW(5) *XN 
BASE(17) = -ASS(43)*UICON (WAGES) *XN 
OTHER CATEGORIES CF INCOME 
PRCEED = INSPRO(SUM,ASS,XN) 
OTHER(2) = ASS{(54)*PRCEED 
BASE(18) = GIFTS(SUM,ASS»XN)*XN + ASS(54) *PRCEED 
GIFTAX(1) = ASS(35)*(BASE(18) - ASS(54)*PRCEED) 
GIFTAX(2) = -ASS(36)¥*GIFTAX(1) 
GIFTAX(3) = -(GIFTAX(1) + GIFTAX(2)) 
BASE(19) = ASS(40)*SUM(4) + ASS(41)*CHRYA 
OTHER(3) = ASS(41)*CHRYA 
BASE(2C) = TRNSFR(SUM, ASS» XN) 
BASE(28) = OQ. 
CONCESSIONARY ALLCWANCES 
BASE(21) = SUM(5)¥*ASS(42)¥*500. 
BASE(22) = XMEDXP(SUMs, ASS» ALLOW, XN) 
BASE(22) = BASE(22) + ASS(62)¥*SUM(39) 
BASE(23) = (Le — ASS(69))*CHARTY(SUM, ASS, ALLOW, XN) 
BASE(24) = STNDRD(SUM, ASS» ALLOW, XN) 
BASE(25) = ASS(63)*SUM(39) 
TUITN = ASS(64)*BASE(25) 
STUDNO = TUITN/ASS(65) 
IF (STUDNC .GT.- XN) STUDNC = XN 
CREC(4) = ALLOW(13)*TUITN + ALLOW(14) *STUCNO 
BASE(27) = QO. 
CRED(6) = OQ. 
BASE(33) = SUM(6) — (DELTA(1) + DELTA(4)) —- (BASE(1) + BASE(2) + 


BASE(2 


1) + BASE(26) + BASE(29) + BASE(30)) 


ADJUSTMENTS TO REFLECT SHIFTING OF TAX CHANGES 

DO 103 3) =g83;5.,15 

OTHER(J) = Oe 

OTHER(13) = CORBAS*(ASS(101)¥*ASS(100) + ASS(104)*ASS(5))/ASS(2) 
SHIFT = 0. 


BSDJ 1300 
BSDJ1310 
BSDJ132C 
BSDJ133C 
BSDJ 1340 
BSOJ135C 
BSDJ136C 
BSDJ137C 
BSOJ138C 
BSOJ139C 
BSOJ140C 
BSOJ1410 
BSDJ142C 
BSDJ143C 
BSDJ144C 
BSOJ145C 
BSOJ146C 
BSDJ147C 
BSDJ 148C 
BSDJ149C 
BSDJ150C 
BSDJ151C 
BSDJ152C 
BS0J153C 
BSO0J154C 
BSOJ155C 
BSDJ156C 
BSDJ157C 
BSDJ158C 
BSOJ159C 
BSDJ160C 
BSDJ161C 
BSDJ162C 
BSOJ 163C 
BSDJ164C 
BSDJ165C 
BSDJ166C 
BSDJ167C 
BSDJ168C 
BSDJ169C 
BSDJ170C 
BSDJ171C 
BSOJ172C 
BSOJ173C 
BSOJ174C 
BSOJ175C 
BSDJ176C 
BSOJ177C 
BSOJ178C 
BSOJ179C 
BSOJ180C 
BSDJ181C 
BSDJ182C 
BSDJ183C 
BSDJ184C 
BSDJ185C 
BSDJ186C 
BSOJ187C 
BSDJ188C 
BSDJ189C 
BSOJ190C 
BS0J1910C 
BSDJ192C 
BSOJ193C 


OOM 


oO 


io ee) 


aan 


104 


105 
106 


20C 


201 


202 


tal 


IF (ISw(8) .LE-~ 0) GO TO 104 

SHIFT = OTHER(13) 

BASE(4) = BASE(4) # CTHER(13)*ASS(90) 
CORTAX(3) = CORTAX(3) + O0-5¥*QTHER(13) 
OTHER(14) = ASS(102)*SUM(21) 

BASE(32) = BASE(32) + OTHER(14) 
OTHER(15) = ASS(103)*GOODWL 

BASE(5) = BASE(5) + ASS(96)*OTHER(15) 
CRED(9) = ASS(90)¥*CORTAX(3) 

CONTINUE 


OTHER ADJUSTMENTS 


IF (1SW(4) .LE-~ 0) GC TO 106 
OUTPUT IN VOLUME 6 FORMAT 

IS = ISw(4) 

BASE(IS) = BASE(IS) + BASE(33) 
BASE(3) = BASE(3) + BASE(35) 
BASE(19) = BASE(19) + BASE(20) 
BASE(2C) = 0. 

BASE(28) = OQ. 

BASE(33) = C. 

DO 105 J = 35¢ NBREF 

BASE(J) = OQ. 

CONTINUE 

SUMMARY OF CHANGES 

CALL SUPREF (2) 

REFTAX(1) = OLDPTX(1) 

DO 20C J=1,NBREF 

REFTAX(1) = REFTAX(1) + BASE(J) 
REFTAX(2) = OLDPTX(2) 

DO 201 J = 1» NCRED 

IF (J -EQ- 8 -OR- J -EQe- 9) GO TC 201 
REFTAX(2) = REFTAX(2) + CRED(J) 
CONTINUE 


REFTAX(4)=CORTAX(1) + CORTAX{(2) + CORTAX(3) 


REFTAX(5) = CRED(8) + CRED(9) 

TCRED(1) = REFTAX(2)/XN 

TCRED(2) = REFTAX(5)/XN 

REFTAX(3) = PROTAX( REFTAX(1L)/XNeTCRED,O) * XN 


ACCRUED INCOME NOT INCLUDED IN COMPREHENSIVE PERSCNAL TAX BASE 


TOT = ASS(92) + ASS(93) + ASS(94) + ASS(95) 
DEN = 0. 

IF (TOT .GT. 0.) DEN = (UNTOIV + BASE(34))/TOT 
FRAC = CORBAS/ASS(2) — DEN 

FRAC = FRAC¥(1. + ASS(105)*SHIFT/CORBAS) 
UNTAXD(1) = ASS(92)*FRAC 

UNTAXD(2) = ASS(93)*FRAC 

UNTAXD(3) = ASS(94)*FRAC 

UNTAXD(4) = ASS(95)*FRAC 

UNTAXD(5) = TOTCBS - TXOCBS 

UNTAXD(6) = GOODWL + CTHER(15) - (BASE(5) —- TXODORET) 
UNTAXD(7) = ASS(98)*SUM(1L7) + SUM(24) 
UNTAXO(8) = -—(BASE(8) + BASE(9)) 

UNTAXD(9) = ASS(99)*BASE(7) 


(1. 
- ASS(109)¥*(1. 


—- ALLOW(16))*CTHER(1) 
—- ALLOW(16))) 


OTHER(1)/ASS(97) —- 


UNTAXD(10) = 
= ASS(11L)*SUM(27)¥*(1. 


UNTAXD (11) 


DG 202 3° = “12, 20 
UNTAXD(J) = O- 
RETURN 


END 


BSDJ 1940 
BSDJ195C 
BSDJ196C 
BSDJ197C 
BSDJ198C 
BSOJ199C 
BSDJ200C 
BSOJ 2010 
BSDJ202C 
BSDJ203C 
BSDJ204C 
BSDJ205C 
BSDJ206C 
BSDJ207C 
BSCJ208C 
BSDJ209C 
BSDJ210C 
BSDJ211C 
BSOJ212C 
BSDJ213C 
BSDJ214C 
BSDJ215C 
BSDJ 21 6C 
BSDJ217C 
BSDJ218C 
BSOJ219C 
BSDJ220C 
BSDJ221C 
BSDJ222C 
BSDJ 22 3C 
BSDJ224C 
BSDJ225C 
BSDJ226C 
BSDJ22 7C 
BSDJ228C 
BSDJ229C 
BSDJ230C 
BSDJ231C 
BSDJ232C 
BSDJ233C 
BSOJ234C 
BSOJ235C 
BSDJ236C 
BSOJ237C 
BSOJ238C 
BSDJ239C 
BSDJ240C 
BSDJ241C 
BSOJ242C 
BSDJ243C 
BSOJ 244C 
BSDJ245C 
BSDJ246C 
BSOJ247C 
BSDOJ 248C 
BSDJ249C 
BSDJ2500 
BSOJ251C 
BSDJ252C 
BSDJ253C 
BSDJ254C 
BSDJ255C 
BSDJ256C 
BSOJ257C 
BSOJ258C 


OY Gly OG) CarG at) GG) Git oC ci celr Cheyne 8 tes 
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SUBROUTINE CORADJ (FRET, XNy UNREPD, OLDCBS, ALLBAS, ALLADD, CRDJOCOOC 
$ OLOCTX, S105TX, CTADDL, CTACD2, UNTDIV, DEFDIV, GOODWL, TXBLGN, CRDJCOIC 
$ DEFGN) CROJCO2C 

CRDJ 0030 

SUBROUTINE TO ESTIMATE ADJUSTPENT TO SOURCE BASE AND TAX CROJ 0O4C 

COMPONENTS ALLOCATABLE TO TAX UNITS SAMPLED CRDJCO5C 

ARGUMENTS CRDJCO6C 

FRET = FRACTION OF TAX UNITS RETIRED CROJCOTC 

XN = NUMBER OF TAX UNITS IN SAMPLE RECORD CROJCOS8C 

UNREPD = DIVIDENTS CURRENTLY UNREPORTED CRDJCO9C 
OLDCBS = CLD CORPCRATE BASE CROJC1LOO 

ALLBAS = OLD TAXED CORPORATE RETENTIONS ASSUMED TC BE ALLOCATED CROJCLIC 

ALLADD = ADDITIONS TO CORPORATE BASE ASSUMED TO BE ALLOCATED CROJC1 20 
OLDCTX = OLD CORPCRATICN INCOME TAX CRDJC1 3C 

S105TX = TAX ON SECTICN 105 DISTRIBUTIONS CROJC14C 

CTACDL = ADDED CORPORATE TAX RESULTING FRCN INTEGRATION CRDJC15C 

CTADD2 = ADDED CORPORATE TAX RESULTING FRON WIDENING THE CORPORATECRDJC160 

TAX BASE CROJC17C 

UNTOIV = DIVIDENTS PAID OUT OF UNTAXED SURPLUS UNCER PROPOSALS CRDJC1 8C 

DEFDIV = NET AMOUNT OF SUCH DIVIDENDS CN WHICH TAX IS DEFERRED CRDICI9IC 

GOOOWL = GOODWILL GAINS ACCRUED ON STCCK CROJC20C 

TXBLGN = TAXABLE GAINS REALIZED CROJO21C 
DEFGN = NET GOODWILL GAINS ON WHICH TAX IS DEFERRED CRDJC22C 

CRDJC2 30 

CCMMON /PARAM/ ASS(200), ALLOW(50), ITUDEF, IDATA, IBASIS, CROJO2Z4C 
$ IORDER(7)», ISPRES{2552)% NSUP, IMINTP, ITPCUT, ITDATA CRDJC25C 

COMMON /DATA/ KLAS(10), SUM(50), BASE(40), CRED(40), CRDJC26C 
$ REFTAX(5), OLDPTX(5), CORTAX(5)s GIFTAX{5) CROJC27C 

COMMON /ADJUST/ DELTA(10), OTHER(30), UNTAXD(20) CRDJC28C 

GENERAL PARAMETERS CRDJC29C 

CIXRAT = ASS(4)/ASS(2) CRDJ0300 
CBSDIV = ASS(2) - ASS(47)/(0.15%(1. — CTXRAT)) CROJC31C 

TOTCIV = ASS(6) + ASS(84) CRDJC32C 

UNREPORTED DIVIDENDS CROJC33C 

DIV = SUM(25) CRDJO34C 

LF. -CSUM(25). elite Colin SUMUZS by cre CROJO35C 

UNREPD = C. CROJIC36C 

IF (KLAS(3) .EQs. 1) GC TO 100 CROJC37C 

UNREPD = (ASS(85) + FRET*¥ASS(86))*SUM(25) CRDJO38C 

IF (UNREPD .LT. ASS(106)*XN AND. KLAS(4) ~GE. 11) CROJO039C 
$ UNREPD = ASS(1C6)*XN CROJOC40C 
KINOX=12 CROJC41C 
GO TO 1C01 CROJC42C 

1CO IF (SUM(4C) .GT. ASS(87)*XN} GC TO 101 CRDJ043C 

UNREPD = ASS(88)*SUM(25) CRDJC44C 
KINDX = 11 CROJC45C 

1001 IF (UNREPD .GT. ASS(89)*XN) UNREPD = ASS(89)*XN CROJ046C 

OTHER(KINDX) = UNREPD CROJC47C 

OTHER(16) = SUM(25) CROJ C48C 
101 CONTINUE CROJ 049C 

EFFECTS OF INTEGRATION CROJO50C 

OLDCBS = (CBSDIV/TOCTDIV)*{SUM(25) + UNREPC) CROJC510 

S105TX = C. CROJC52C 

IF (SUM(4C)/XN .GTe ASS(49)) SLOSTX = (ASS(47)/ASS(48))*SUM(25) CRDJC53C 

OTHER(8) = SLOSTX CROJC54C 

OLOCBS = OLDCBS + S105TX/(0.-15*(1. -— CTXRAT)) CRDJC55C 

UNTDIV = ASS(46)*(SUM(25) + UNREPD) CRDJIC56C 

OTHER(10) = UNTDIYV CROJCSTC 

ALLBAS = ASS(90)*CLOCBS - (SUM(25) + UNREPD - UNTCIV) CRDJC58C 
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OLOCTX CTXRAT*OLDCBS 
CTADD1 C-50*O0LDCBS - OLDCTX 
EFFEGTS OF ADDITICNS TO CORPORATE BASE 


ou 


CBSADD = (ASS(3)/ASS(2))*OLDCBS 
CTADD2 = C.~50*CBSADD 

ALLADD = ASS(90)*CBSADD 

GOOCWILL GAINS ACCRUED AND TAXABLE 
DEFDIV = (1. - ASS(91))*UNTDIV 
GCOCWL = ASS(7)*(SUM(25) + UNREPD) 
TXBLGN = ASS(96)*GOODWL 


DEFGN = (le — ASS(96))*GOODWL 
SUM(25) = DIV 

RETURN 

END 


MISCELLANECUS BASE ADJUSTMENT FUNCTIONS 
NUMBERED AS OF 30 JAN/67 


FUNCTION CPP(WAGES, SEMPL», ADD) 

CANADA PENSION PLAN DEDUCTIONS 

WAGES = WAGE AND SALARY INCOME 

SEMPL = INCOME FROM SELF-EMPLCYMENT 

ADD = CPP PREMIUMS LEVIED CN SELF-EMPLCYMENT INCOFE (OUTPUT) 


CPP = 0 

ADD = C. 

IF (WAGES .LT. 600.) GO TQ 100 
CPP = eC1l1B*(WAGES —- 600.) 

IF (WAGES LT. 5000.) GO TO 100 
CPPe= 7952 

RETURN 


IF (SEMPLt#WAGES LT. 800.) RETURN 

AOD = C.018*(WAGES + SEMPL - 600.) -— CPP 
IF (ADD+CPP .GT. 79-2) ADD = 79.2 — CPP 
CPP = CPP + 2.¥*ADD 

RETURN 

END 


FUNCTION EMPLXP (WAGES, ASS) 
ITEMIZABLE EMPLOYMENT EXPENSES 
DIMENSION ASS(200) 

EMPLXP = ASS(19) * (WAGES - ASS(20)) 
IF (EMPLXP.LT.~ O-) EMPLXP = O. 

IF (EMPLXP.GT.ASS{(21)) EMPLXP=ASS(21) 
RETURN 

END 


FUNCTION CPXDED (WAGES, DUES, DPAYRS, FRET, 
OPTIONAL EMPLOYMENT EXPENSE ALLOWANCE 
WAGES = AVERAGE WAGE AND SALARY INCOME 

DUES = TOTAL UNION DUES PAID BY GROUP 
DPAYRS = NUMBER OF DUES-PAYERS IN GROUP 


EMPXP,ALLOW, XN) 


FRET = FRACTION OF TAX UNITS RETIRED AND RECEIVING PENSION INCOME 


EMPXP = ITEMIZABLE EMPLOYMENT EXPENSES 
ALLOW = ALLOWANCE PARAMETERS 

XN = NUMBER OF TAX UNITS IN GROUP 

DIMENSION ALLOW(5C) 

OPTION = ALLOW(2) * WAGES / (1.0-FRET) 

IF (OPTION .GT. ALLOW(3)) OPTION = ALLOW(3) 
XPITEM = C. 


CRDJC59C 
CROJC60C 
CRDJC61C 
CROJC62C 
CROJ C63C 
CROJC64C 
CRDJC65C 
CROJC66C 
CROJO67C 
CRDJC68C 
CROJC69C 
CROJOQT7OC 
CROJCTIC 
CROJ C7 2C 


ADJFCOCC 
ADJFCOIC 
ADJFOO2C 
ADJFCO3C 
ADJFCO4C 
ADJFCO5C 
ADJFCO6C 
ADJFCOTC 
ADJF COBC 
ADJFCO9C 
ADJFCLOC 
ADJFCLIC 
ADJFC12C 
ADJFC1 3C 
ADJFCL4C 
ADJFC15C 
ADJFC1L60 
ADJFOLTC 
ADJFC1&C 
ADJFCLIC 
ADJFO200 
ADJFO21C 
ADJFC22C 
ADJFO23C 
ADJFC24C 
ADJFO25C 
ADJFC26C 
ADJF02 70 
ADJFO2 8C 
ADJFC29C 
ADJF030C 
ADJFO31C 
ADJFO32C 
ADJF033C 
ADJFC34C 
ADJFO35C 
ADJF036C 
ADJF 0370 
ADJFO38C 
ADJF039C 
ADJF C400 
ADJF 0410 
ADJF042C 
ADJF043C 
ADJF044C 
ADJF045C 
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IF (DPAYRS.-GT.0~.) XPITEM = DUES/DPAYRS ADJF046C 
XPITEM = EMPXP + XPITEM ADJFC47C 
OPXDED= 0 ADJFC48C 
IF (EMPXP .GE. OPTION) RETURN ADJFC49C 
IF (XPITEM LT. OPTION) OPXDED = (OPTION — XPITEM) * DPAYRS ADJF0500 
IF (OPAYRS .GTe (1-O0-FRET) * XN) GC TO 100 ADJFC51C 
OPXOED = CPXDED + (OPTION-EMPXP) * ((1.0-FRET) * XN — DPAYRS) ADJFC52C 
OPXDED = OPXDED/XN ADJFC53C 
RETURN ADJFC54C 
END ADJFO550 
ADJFC56C 

FUNCTION LICON( WAGES) ADJFC57C 
EMPLOYEE LUNEMPLOYMENT INSURANCE CONTRIBUTIONS ADJFC58C 
DIMENSION UBOT(12), URAT(12) ADJFC59C 
DATA (UBOT(I)», T=1le12) ADJFC60C 
1Q ee 3909 B5en IDlhley L1lVeyg L43e5 169425 19569 22102 24729 ADJFO6IC 

27363 25996/ ADJFC62C 
DATA (URAT(I)», IT=1l,12) ADJF C6 3C 
1244, 2865 146309 166% Zee 2634, 22609 22869 3-129 34389 ADJFC64C 

3.72, 4-08/ ADJFC65C 
UICON = 0 ADJFC66C 
IF (WAGES.LE.O.) RETURN ADJFO67C 
DO 100 I=1,12 ADJFC68C 
IF (WAGES .LE-~ UBOT(I)*12.) GO TO 101 ADJFC69C 
CONTINUE ADJFO70C 
IF (1-GT.1) I=I-1 ADJFC71LC 
UICON = URAT(I) * 12. ADJFC72C 
RETURN ADJFC73C 
END ADJFC74C 
ADJFC75C 

FUNCTION BENFTS (WAGES, PROF, BUS», XPDED, XN, ASS) ADJFOT6C 
BENEFITS BROUGHT INTO INCOME ADJFCT77C 
WAGES = WAGE AND SALARY INCOME ADJFO78C 
PROF = NET INCOME FROM COMMISSION AND PROFESSIONAL SELF-EMPLOYMENTADJFC79C 
BUS = NET INCOME FROM UNINCORPORATED BUSINESS ADJFC8CC 
XPDEP = EXPENSES DEDUCTED IN COMPUTING PRCFESSIONAL AND ADJFC81C 
BUSINESS INCOME ADJFC82C 

COMMON /DATA/ KLAS(10)» SUM(50), BASE(40), CRED(40), ADJFC83C 
REFTAX(5)» OLDPTX(5), CORTAX(5)» GIFTAX(5) ADJFC84C 
COMMON /SWITCH/ ISW(25) ADJFC85C 
COMMON /ADJUST/ DELTA(10), OTHER(30),5 UNTAXD(20) ADJFC86C 
DIMENSION ASS(200) ADJFC87C 
XOUT = 0. ADJFC88C 
TOP EMPLOYEE BENEFITS ADJFQ89C 
IF (WAGES .GT. ASS(31)) XOUT = ASS(30)* (WAGES - ASS(31)) ADJFCIOC 
IF (XOUT .GT. ASS(50)) XOQUT = ASS(50) ADJFC9IIC 
OTHER(5) = XOUT*XN ADJFC92C 
ADD ATTRIBUTABLE EXPENSES OF SELF-EMPLOYED ADJFC93C 
ATT = OC. ADJFC94C 
IF (ISW({11) -EQ. 0) GO TO 99 ADJFC95C 
ATT = ASS(32)*(SUM(23) — SUM(50))/XN ADJFO96C 
GC TO 101 ADJFCITC 
IF (PROF LE. O-) GO FO 101 ADJFC98C 
IF (BUS .GT. 0.) GO TO 100 ADJFC99C 
ATT = ASS(32)*XPDED ADJF100C 
GO TO 10Ol ADJF101C 
ATT = ASS(32)*(PROF/(PRCF + BUS))*XPDED ADJF102C 
BENFTS = ATT + XOUT ADJF103C 
IF (BENFTS .GT. ASS(50)) ATT = ASS(50) -— XCUT ADJF104C 
OTHER(6) = ATT*XN ADJF105C 
XOUT = XOUT + ATT ADJF106C 
PERSONAL EXPENSES CURRENTLY DEDUCTED FROM UNINCORPORATED ADJF107C 
BUSINESS INCOME ADJF108C 


ATT = ole 


ADJF109C 


1011 


102 
103 


10C 


101 


102 


103 
104 


105 


Nas. 


IF (ISW(11) .EQ. 0) GO TO 1011 

ATT = ASS(66)*SUM(50)/XN 

GO TO 103 

IF (BUS .LE. 0.) 

IF (PROF GT. O.) 

ATT = ASS(66)*XPDED 

GO TO 103 

ATT = ASS(66)*(BUS/(PROF + BUS) )*XPDED 

IF (ATT «GT. ASS(67) .-AND. BUS «LE. ASS(68)) ATT = ASS(67) 

BENFTS = XOUT + ATT 

IF (BENFTS .GT. ASS(50)) ATT = ASS(50) — XOUT 

OTHER(9) = ATT¥XN 

GROUP INSURANCE BENEFITS ETC 

XOUT = ASS{(33) * WAGES 

IF (XOUT .GT. ASS(34)) XOUT = ASS(34) 

IF (WAGES .LT.j ASS(59)) XOUT = 0. 

OTHER(7) = XOUT*¥XN 

BENFTS = BENFTS + XOQUT 

LIMITS ON ATTRIBUTION OF BENEFITS 

IF (BENFTS .GT. ASS(50)) BENFTS = ASS(50) 

IF (BENFTS .GT. ASS(55)*(WAGES + XPDED)) BENFTS = ASS(55)* 
(WAGES + XPDED) 

RETURN 

END 


GO TO 103 
GO TO 102 


FUNCTION GIFTS(SUM, ASS» XN) 
GIFTS AND BEQUESTS RECEIVED FROM CUTSIDE THE FAMILY UNIT 
DIMENSION SUM(50), ASS(200) 

SUM(4C) = SUM(40)/XN 

GIFTS = 0 

IF (SUM(4C).LT.100C0.) GO TO 104 

IF (SUM(4C).GT.25000.) GO TO 100 
GIFTS = .C4*SUM(4C) 

GO TO 104 

IF (SUM(4C).GT.~50C000.) GO TO 101 
GIFTS = .C8*SUM(4C) 

GO TO 104 

IF (SUM(4C).GT.~100000.) GO TO 102 
GIFTS = .~12*SUM(40) 

GO TO 104 

IF (SUM(4C0).GT.~200000.) GO TO 103 
GIFTS = «14*SUM(40) 

GO TO 104 

GIFTS = -1L16*SUM(4C) 

IF (GIFTS.GT.3500C-) GIFTS = 35000. 


IF (SUM(4C).LT~7000.) GO TQ 105 

GIFTS = 2.C*¥GIFTS + .05*(SUM(40) - 6000.) 
SUM(4C) = SUM(40)¥*XN 

GIFTS = GIFTS¥*¥1.5 

GIFTS = GIFTS + SUM(27)/XN 

GIFTS = GIFTS¥*ASS(51) 

RETURN 

END 

FUNCTION TRNSFR {(SUMs ASS» XN) 

TRANSFER PAYMENTS OTHER THAN FAMILY ALLOWANCES 
DIMENSION SUM(50), ASS(200) 

TRNSFR = Oe 

RETURN 

END 


FUNCTION CHARTY (SUM, ASSy ALLOW,XN) 

CHANGE: IN DEDUCTIBLE CHARITABLE DCNATICNS 

DIMENSION SUM(50)~% ASS(200), ALLOW(50) 

CHARTY = ASS(28)*(ASS(56)*SUM(45) + ASS(57)¥*(XN-SUM(45))) 
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ADJF1100 
ADJF111C 
ADJF112C 
ADJF113C 
ADJF114C 
ADJF115C 
ADJF116C 
ADJF117C 
ADJF118C 
ADJF119C 
ADJF120C 
ADJF121C 
ADJF122C 
ADJF123¢ 
ADJF124C 
ADJF125C 
ADJF126C 
ADJF127C 
ADJF128C 
ADJF129C 
ADJF 1300 
ADJF1310 
ADJF132C 
ADJF133C 
ADJF134C 
ADJF135C 
ADJF 136C 
ADJF137C 
ADJF138C 
ADJF139C 
ADJF140C 
ADJF141C 
ADJF142C 
ADJF 14 3C 
ADJF 144C 
ADJF145C 
ADJF146C 
ADJF147C 
ADJF148C 
ADJF149C 
ADJF150C 
AOJF151C 
ADJF152C 
ADJF153C 
ADJF154C 
ADJF155C 
ADJF1560 
ADJF157C 
ADJF 1580 
ADJF159C 
ADJF 160C 
ADJF 161C 
ADJF162C 
ADJF163C 
ADJF164C 
ADJF 165C 
ADJF 166C 
ADJF167C 
ADJF 168C 
ADJF169C 
ADJF170C 
ADJF171C 
ADJF172C 
ADJF173C 
ADJF174C 
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RETURN 

END 

FUNCTION XMEDXP (SUM, ASS» ALLOW, XN) 
CKANGE IN FMEDICAL DEDUCTIONS 

DIMENSION SUM(50), ASS(200), ALLOW(50) 
RETURN 

END 

FUNCTION INSPRO (SUM,ASS,XN) 


GIFTS RECEIVED AS INSURANCE PROCEEDS 


COMMON 


/SWITCH/ ISW(25) 


DIMENSION SUM(50), ASS(200) 


XX = 


IF (XxX 
INSPRO 
RETURN 
END 


FUNCTION STNDRD(SUM,ASS» ALLOW, 


CHANGE 


DIMENSION SUM(50)- ASS(200) >, 


STNCRD 
RETURN 
END 


FUNCTION AVGING 


EFFECT 
AVGING 
RETURN 
END 


SUBROUTINE KLASFY (KLAS, 


SUBROUTINE TO OBTAIN CLASSIFICATICN OF DATA RECORC 


SUM(4C) — ASS(26)*XN 
IF (ISwt(1c) 


eEQe- 1) XX = SUM(40) 
eL Te. O-) XX = O01 


= e5¥*(ASS(24)*SUM(27) 


~ ASS(26) 


+ ASS(25)¥*XX) 


XN) 

IN STANDARD DEDUCTICN 

ALLOW(50) 
= ASS(29)*SUM(7) 


(CLOTAX) 
OF INCOME AVERAGING 
= C. 


AINCs AINCMD, KCHNGE, 


RENUMBERED FOR GITAN PRINTING 


ARGUMENTS 
KLAS = 
AINC = 
AINCMD 
KCHNGE 


IENTRY 


COMMON 


$ INKL(3)>» 


ARRAY OF CLASS DATA FRCM DATA RECORD 
AVERAGE COMPREHENSIVE BASE TAXABLE INCOME 


IENTRY) 


= AINC PLUS AVERAGE ATTRIBUTABLE ACCRUED INCOME 


= CLASSIFICATION VARIABLE FOR ALL RECCRDS I 
NOT RELEVANT) 

1,2. 
CLASSIFICATION OF GIVEN DATA RECCRD 


u 


JCLASFN/ NINKL(3), 
IXKLAS 


NXKLAS» CLXNAM, KLGIVN, 


CLASSIFICATION PARAMETERS 


1 CBTAINS CLASS DESCRIPTIONS IN COMMON, 


N TABLE ( =0O IF 


2 OBTAINS 


GIVNAM, 


NINKL(1) = NUMBER OF CLASSES IN INCOME CLASSIFICATION 1 
NINKL(2) = NUMBER CF CLASSES IN INCOME CLASSIFICATION 2 
NINKL(3) = NUMBER OF CLASSES IN INCOME CLASSIFICATION 3 
NXKLAS = NUMBER OF CLASSES IN THE CTHER CROSS-CLASSIFICATION 


DISPLAYED IN TABLES 


CLXNAM = ALPHA DESCRIPTION OF CROSS-CLASSIFICATION (A6) 

KLGIVN = IDENTIFIER OF GIVEN CLASS FOR TABLES BEING GENERATED 
{=O IF CLASS IS NOT A PROPER SUBSET OF ALL CANAOTAN 
RESIDENT TAX UNITS) 

GIVNAM = ALPHA DESCRIPTION OF GIVEN CLASSIFICATION (A6) 


(WILL BE SET BLANK IF KLGIVN EQUALS ZERO) 


ADJF175C 
ADJF176C 
ADJF177C 
ADJF178C 
ADJFILT9C 
ADJF1800 
ADJF181C 
ADJF 182C 
ADJF 18 3C 
ADJF184C 
ADJF185C 
ADJF 186C 
ADJF 1861 
ADJF187C 
ADJF 188C 
ADJF189C 
ADJF190C 
ADJFI9I1C 
ADJF192C 
ADJF 19 30 
ADJF194C 
ADJF195C 
ADJF196C 
ADJF197C 
ADJF198C 
ADJF 199C 
ADJF 2000 
ADJF201C 
ADJF202C 
ADJF 20 3C 
ADJF204C 
ADJF205C 


KLFYCOOC 
KLFYCOLC 
KLFYCO2C 
KLFYCO3C 
KLFYOO4C 
KLFY COSC 
KLFYCO6C 
KLFYCO70 
KLFYCO8C 
KLFYCO9C 
KLFYC1CC 
KLFYCLIC 
KLFYC12C 
KLFYC13C 
KLFYCL4C 
KLFYC15C 
KLFYOL6C 
KLFYQOL7ZC 
KLFYO18C 
KLFYO19C 
KLFYO20C 
KLFYC210 
KLFYO22C 
KLFY 02 3C 
KLFYC24C 
KLFYC25C 
KLFYO26C 
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INKL (1) = INCOME CLASSIFICATICN (COMPREHENSIVE TAXABLE INCOME) 
INKL(2) = INCOME CLASSIFICATICN (CURRENTLY ASSESEC INCOME) 
INKL(3) = INCOME CLASSIFICATICN (TGTAL ACCRUED INCCME) 
IXKLAS = CROSS-CLASSIFICATIGON CLASS 
DIMENSION KLAS(10)_ ALPHA(10),»5 KINC1(47)»5 KINC2(47) 
DIMENSION KINC(47) 
DIMENSION NKLSW(10) 
COMMON /SWITCH/ I[SW(25) 
DATA (ALPHA( I)», I = Le 10) 
/6HFSTATS» GHINCOME, 6HTXPING, SHA/O/S, 6HDEPNDT, 
6HPROVe » GHDIVINC, 6HINVINC, 6HTXCHNG, 6HACCINC / 
DATA BLANK / 1H / 
DATA (KINCL(I), IT=1,47) 
/ l» 2s 39 39 4» Dy Oy 6% T¢ Bs 9% 10% lly l2, 139 13, 
14,5 149 15,5 15,9 165 16y 17_y 17%y 185 18, 185 1By 18y 19y 19y 20% 
PPs22n-22s 224 52394247 0!0y 257 (269 269 269 r2%s_ 21s 2i5° 27 7 
DATA (KINC2(1), [=1,27) 
/ ly, Ll, le 2% 2% 29 3° 3» 4, 45 5» 59 6, by Ty Te TT? 
8, Gy Ge 10, 1LOy 109 1Oe 10% 10% 10 / 
DATA (KINC(I), T=1,47) 
1 4&¥1l_g 4*¥2, 2*3, 24, 2455 246, 47, 4*8y 2*9y 3¥10, 
2%*1ll, L2,y 2*135 2¥*14,5 159 16y 2¥17y 24185 2419, 3*20 / 
DATA (NKLSW(K)» K=ly 4) / 479 275 20% 10 / 
IF (ITENTRY ~-NE~ 1) GO TO 102 


ENTRY TO INITIALIZE PARAMETERS IN CCMMCN 


IF (KCHNGE ~NE-~ 0) GO TO 100 
KLGIVN = C 

GIVNAM = BLANK 

GO TO 101 

KLGIVN = KLAS(KCHNGE) 
GIVNAM = ALPHA(KCHNGE ) 
CLXNAM = ALPHA(4) 
NXKLAS = 26 

KSW = ISW(12) 

DC 1011 K = ly 3 
NINKL(K) = NKLSW(KSW) 
RETURN 


ENTRY TO OBTAIN INCOME AND CRCSS-SECTIONAL CLASS CF DATA 


IXKLAS = KLAS(4) 

INKL(1) = INCKL(AINC) 
INKL(2) = KLAS(2) 

INKL(3) = INCKL(AINCMD) 

IF (KSW EQ. 1) RETURN 

TF (KSW .NE. 3) GO TO 104 
P2037 lise is "3 

INC = INKL(T) 

INKL(I) = KINCCINC) 

RETURN 

DG* 105) [Nei 3 

INC = INKL(T) 

INC = KINCL(INC) 

IF (KSW eEQ. 4) INC = KINC2UINC) 
INKL(I) = INC 

RETURN 

END 
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KOFY C2 7 
KLFYC28C 
KLFYC29C 
KLFYC30C 
KLFYC31C 
KLFYC32C 
KLFYC33C 
KLFYC34C 
KLFYC35C 
KLFYO36C 
KLFYO37C 
KLFYC38C 
KLFYC390 
KLFY0400 
KLFYC41C 
KLFYC42C 
KLFYC43C 
KLFY044C 
KLFYC45C 
KLFYC46C 
KLFY047C 
KLFYC48C 
KLFYC49C 
KLFYC500 
KLFYOSI1C 
KLEYCS5S2C 
KLFYC53C 
KLFYO54C 
KLFYC55C 
KLFYC56C 
KLFYCS7C 
KLFYC58C 
KLFYC59C 
KLFYC60C 
KLFYC61C 
KLFYC62C 
KLFYC6 3C 
KLFYO64C 
KLFYC65C 
KLFYC66C 
KLFYO670 
KLFYO68C 
KLFYO69C 
KLFYC7OC 
KLFYO71C 
KLFYO72C 
KLFYC73C 
KLFYCT4C 
KLFYCO75C 
KLFYC76C 
KLFYCT77C 
KLFYC78C 
KLFYC79C 
KLFYC8OC 
KLFYC810 
KLFYO82C 
KLFYQ83C 
KLFYC84C 
KLFYO85C 
KLFYC86C 
KLFYCB87C 
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$ 
DATA 


$ 


$ 
u 


ARG 


98 


rep 


a4 


$ 


100 
$ 


INCKL (AINC) 
NUMBERED AS OF 21 OCT/66 
DIMENSION KBOT1(10), KBOT2( 
DATA (KBOTL(I)» I=1,10) 
/ 0» OQ, 50» 
(KBOT2(1), [T=1,15) 


FUNCTION 


15% 


15)» 


100, 


128 


KBOT3(22) 


125, 150, 


175, 


200, 


250 / 


1 30935940 945950 955960 9659 10975980 985990995,100 / 


DATA (KBOT3(1)» 
/ lly 


I=1922) 

12, 13, 
1CO»e 125, 150, 1755 200, 

IF (AINC.LE~O-) INCKL = 1 

IF (AINC.LE.~O.) RETURN 

DO 103 J=2,47 

IF (J-GT~1C) GO TO 100 

BOTTOM = KBOT1(J)¥*10 

GO TO 102 

IF (J-GT.25) GO TC 101 

BOTTOM = KBOT2(J-10)¥*100 

GO TO 162 

BOTTOM = KBOT3(J-—25)*1000 

IF (AINC.LT.~BOTTOM) RETURN 

INCKL = J 

CONTINUE 

RETURN 

END 


FUNCTION PROTAX (TINC, TCRE 
FUNCTION TO 
NUMBERED AS OF 
UMENTS 
TINC = TAXABLE INCCME 
TCRED(1) = 
TCRED(2) = 
IFCRED = OPTION CCNTROL 
SUPPRESSED. 
SUPPRESSED. 


21 OCT/66 


(O, 

IF ly» 

LFi 2s 

SMALLER CF (24— 

COMMON /FPAR/ MARTAL, 

COMMON /RSCHED/ BCTTCM(25), 

DIMENSION X(10), TCRED(2)>» 

DATA (X(I), LT=1,1C) / 10*0. 

DG G8 I=1,2 

X(I) = CRED(I) 

DC $81 1[=8,10 

MGi) =: CREDLI) 

DG.:99) dt! = by3 

NO $9 J=1925 

RATE(I,J) = 

LE CIFCRED 

Le (FCRED EQ .0:2)) 8 GOI HG 

if GLECRED t727 008 GC Or 

PROTAX = TAXCOM (TINC, 
NCLASSy» Xy TX) 


RAT(I9J) 


EQS YT) FG Ol Os 


RETURN 
PROTAX = 
NCLASS» 


TAXCOM( TINC, 
CRED, TX) 


14, 


IWWIFE, 


15, 
225% 


D, IF 


COMPUTE PROPOSED TAX 


ly2y 


17» 
300, 


20% 
400, 


CRED) 


NON-REFUNDABLE TAX CREDIT 
REFUNDABLE TAX CREDIT 


25% 


30% 
500 / 


355 40% 


50, 75, 


(FOR CORPORATE TAX) 


OR NEGATIVE. 


IF Oy 


ALL CREDITS 


WCRKING WIFE CREDITS CNLY ARE 


NCRMAL TAX 


RAT ( 
RATE ( 
/ 


00 


101 


02 


TCRED( 1), 
- TCRED(2) 


TCRED(1), 
= TERED (2) 


DEPCH, 


3925) 
3925) 


MARTAL, 


ODEP 
CRED(10)>» 


Oey 


MARTAL» 


CALCULATION. 
ALL CREDITS ARE SUPPRESSED ANC MSTAT IS SET EQUAL TO THE 
IFCRED) AND PARTAL 


O» 


DEPCH, 


RATE, 


O» 


IF NEGATIVE, 


NCLASS 


BOTTOM, 


RATE, 


INCLOOOC 
INCLCOILC 
INCL CO2C 
INCL 003C 
INCLCO4C 
INCLCOSC 
INCL CO6C 
INCLCO7C 
INCL OO8C 
INCLCO9C 
INCLC100 
INCL C1L1C 
INCLO12C 
INCLC1 3C 
INCL C14C 
INCLO15C 
INCLC16C 
INCLC1I7C 
INCL O18C 
INCLO1L9C 
INCLC20C 
INCL C21C 
INCLO22C 
INCL C2 3C 
INCL C240 


PRTXCOCC 
PRTXCOI1C 
PRTXCO2C 
PRTXCO3C 
PRTXCO4C 
PRTXCO5C 
PRTXCO6C 
PRTXOO7C 
PRTXCOBC 
PRTXCO9C 
PRTXC1CO 
PRTXCL1IC 
PRTXC12C 
PRTXO13C 
PRTXCL4C 
PRTXC15C 
PRTXC16C 
PRTXO1L7IC 
PRTXC18C 
PRTXC190 
PRTXC200 
PRTXC21C 
PRTXC22C 
PRTX02 3C 
PRTXC24C 
PRTXC25C 
PRTXC26C 
PRTXC27C 
PRTXC28C 
PRTXC29C 
PRTXC30C 


BOTTOM,PRIXC31C 


PRTXC32C 


RETURN 
101 PROTAX= TAXCOM( TINC, TCRED(1), MARTAL, DEPCHy, IWWIFE, RATE, 
$ BOTTOM, NCLASS», CRED, TX) —- TCRED(2) 
RETURN 
TO2 MSTAT = —-C(IFCRED + 1) 
IF (MSTAT «GT. MARTAL) MSTAT = MARTAL 
PROTAX= TAXCOM( TINC, TCRED(1),MSTAT »DEPCH, IWWIFE, RATE, 
$ BOTTOM, NCLASS» X » TX) - TCRED(2) 
RETLRN 
END 
SUBROUTINE SUPREF (IENTRY) 
C 
C SUBROUTINE TO SUPPRESS EFFECT OF SELECTED REFCRMS 
G ENTRY SWITCH (IENTRY) 
C 1 = INITIALIZATION 
C 2 = SUPPRESSION FCR EACH DATA RECCRD 
c 3 = PRINT CUT SUPPRESSICN PARAMETERS 
C 
COMMON /PARAM/S ASS(200), ALLOW(50), ITUDEF, IDATA,», IBASIS, 
$ IORDER(7), ISPRES (25,2), NSUP, IMINTP, ITPCUT, ITDATA 
COMMON /DATA/ KLAS(10), SUM(50), BASE(40), CRED(40), 
$ © REFTAX(5), OLDPTX(5), CORTAX(5), GIFTAX(5) 
COMMON /REFDIC/ IRTAB(7,1093)5 KATREF( 7), NREF(T), 
$ NKAT, NRLIST, NCTAX, NGTAX 
COMMON /SWITCH/ ISw(25) 
DIMENSION ISUP(25), IRCRED(50), ICTAX{(50), IGTAX(50), KREF(7) 
DATA (IRCRED(I), IT=1,50) 
$ 1 9¥QO_g 2e 12*0_ 39 B09 4_y 5p Be Oo Te ly 13*0 JS 
DATA (ICTAX( 1)» I1=1,50) / 9*0y 2y 35 19*0y 4, 19*0 / 
DATA CIGTAX(1I), [=1,50) / 8*09 25 8*0y 39 32%*0 / 
DATA (KATREF(I)», IT=1l,7) /559 49 39 Te Se 359 TL 
DATA (KREF(I)» I=le7) /69 49 69 8e Sy 49 T/ 
€ 
GO TO (10CC~e 2000, 3000), IENTRY 
C 
C INITIALIZATION ENTRY 
G 
1000 ITHRU = 1 
1001 K = 0O 
DO 10C I = ll, 7 
NREF(I) = KREF(I) 
M = KATREF(I) 
IF (ITHRU EQ. 1) M = NREF(T) 
DC 10C J = ly», M 
Pee CITHRU JEG. 2). K ia K +r 
c REFORM DICTIONARY - 
Cc IRTAB(IyJeK) = OVERALL REFORM NUMBER 
Cc (SUBSCRIPT OF BASDEL», TAXDEL, GIFTAX, OR CORTAX) 
S I = REFORM CATEGORY 
Cc J = REFORM NUMBER WITHIN CATEGORY 
C K = TAX NUMBER (PERSCNAL» CORPORATE, AND GIFT TAXES RESPECTIVELY) 
IRTAB(IyJel) = K 
IRTAB(IyJe92) = O 
10C IRTAB(IsJe3) = O 


129 


ITHRU = ITHRU + 1 
IF CITHRU ~EQ.- 2) GO TGQ. 1001 
IRTAB( 39122) = 2 


IRTAB( 392,52) = 3 
IRTAB(294,3) = 2 
IRTAB(6,1,3) = 3 


PRTXC33C 
PRTX0340 
PRTXC35C 
PRTXC36C 
PRTXC37C 
PRTXC38C 
PRTXC39C 
PRTXC40C 
PRTXC41C 
PRTX042C 


SPRFCOOC 
SPRFOOLC 
SPRFCO2C 
SPRFCO 3C 
SPRFCO4C 
SPRFCO5C 
SPRFCO6C 
SPRFCO7C 
SPRFCO8C 
SPRFCO9C 
SPRFC1CC 
SPRFOLIC 
SPRFOL2C 
SPRFC13C 
SPRFC14C 
SPRFC15C 
SPRFC16C 
SPRFCLIC 
SPRFC1 8C 
SPRFCLOC 
SPRFC20C 
SPRFO21C 
SPRFC22C 
SPRF C2 3C 
SPRFC24C 
SPRFC25C 
SPRFC26C 
SPRFC27TC 
SPRFC28C 
SPRFC29C 
SPRFC3CC 
SPRFC31C 
SPRFO32C 
SPRFO33C 
SPRFC34C 
SPRFC35C 
SPRFO36C 
SPRFO37C 
SPRFCO38C 
SPRFC39C 
SPRFC40C 
SPRFC41C 
SPRFC42C 
SPRFC43C 
SPRFC4&4C 
SPRFC45C 
SPRFO46C 
SPRFO47C 
SPRFC48C 
SPRFC49C 


aan 


101 
102 


200C 


2cC 


201 


30CC 


J 
2 


3 


4 FORMAT (1X, 


5 


130 


IRTAB(394,1) = 13 
IRTAB(6,4e1) = 35 
IRTAB(1,3,1) = 36 
IRTAB(19491) = 37 
IRTAB(49l,1) = 38 
IRTAB(451,2) = 4 
IRTAB(4,8,1) = 39 
IRTAB(1s6e1) = 40 
IRTAB(3,591) = 41 
IRTAB(3,6591) = 42 
NKAT = 7 

NRLIST = 42 


NOTE THAT ANY ADDITIONAL REFORM ENTERED MUST HAVE AN ASSOCIATED 
DUMMY BASE CHANGE 


NCTAX = 4 

NGTAX = 3 

IF) ANSUP WLELY 0). CON aay r02 
DO 101 KK = ly» NSUP 


I = ISPRES(KK,1) 


J = ISPRES(KK,2) 
ISUP(KK) = IRTAB(I,J91) 
CONTINUE 

RETURN 


ENTRY TO SUPPRESS SELECTED REFORM EFFECT CN RECORD 


CONTINUE 

IF (NSUP .LE. 0) RETURN 

DO 201 KK = le» NSUP 

TIREF = ISUP(KK) 

I = IREF 

IF (I .GT. 2 -AND. I -LT.~ 10) GO TO 200 
LeeeD GT 2 Tie oe ef 
BASE(I) = Ce 

1 = IRCREO(IREF) 

IF (I GT. 0) CRED(I) = O- 

I = ICTAX(CIREF) 

IF (1 2GT. 0) CORTAX{(1) = Of 
I = IGTAX(IREF) 

IF (I .GT»~ 0) GIFTAX(I) = O. 
CONTINUE 

RETURN 


ENTRY TO PRINT OUT SUPPRESSION PARAMETERS 


CONTINUE 
IF (ISW(6) EQ. 1) 
IF (NSUP .LE. 0) 
IF (NSUP .GE. 1) 

K = 1, NSUP) 
IF (ISW(8) .GT. QO) 
IF (ISW(9) EQ. 1) 
RETURN 


WRITE (I1TPOUT,5) 
WRITE (2 TPOUT,1) 
WRITE (1TPOUT,2) (ISPRES(Ky1), ISPRES(K,2), 
WRITE 


WRITE 


(I TPOUT,3) 
(1 TPQUT 94) 


25HREFCRMS SUPPRESSED —- NCNE) 

(1X, ZOHREFCRMS SUPPRESSED -», 15(2X, 
(21X_, 15(2X—_ I2_ LH, 12))) 

FORMAT (1X_, 28HCALCULATIONS INCLUDE EFFECTS, 
28H OF ANTICIPATED TAX SHIFTING) 

45HINCCME IS DEFINED TG INCLUDE UNTAXED ACCRUALS) 

44HCURRENT TAXES INCORPORATE MINIBUDGET CHANGES) 


FORMAT 
FORMAT 


(1X, 


I29 lH, 12) / 


FORMAT 
END 


(1X, 


SPRFO500 
SPRFOS1C 
SPRFO52C 
SPRFO53C 
SPRFOC54C 
SPRFO55C 
SPRFC56C 
SPRFC57C 
SPRFO58C 
SPRFC59C 
SPRFC60C 
SPRFC61C 
SPRFO62C 
SPRFC63C 
SPRFC64C 
SPRFC65C 
SPRF C66C 
SPRFC67C 
SPRFC68C 
SPRFC69C 
SPRFC700 
SPRFO71C 
SPRFC72C 
SPRF C7 3C 
SPRFO74C 
SPRFC75C 
SPRFC76C 
SPRFC77C 
SPRFC78C 
SPRFO79C 
SPRFC8CC 
SPRFO81C 
SPRFC82C 
SPRFC83C 
SPRFC84C 
SPRFC85C 
SPRFC86C 
SPRFC87TC 
SPRFC88C 
SPRFO89C 
SPRFC9OC 
SPRFCII1C 
SPRFC92C 
SPRFC93C 
SPRFC94C 
SPRFC9IS5C 
SPRFC96C 
SPRFCITC 
SPRFC98C 
SPRFC99C 
SPRF1OCC 
SPRF1IO1C 
SPRF102C 
SPRF103C 
SPRF104C 
SPRF105C 
SPRF 106C 
SPRF107C 
SPRF108C 
SPRF 109C 
SPRF11CC 
SPRF11L1C 


RI I Gee 


oleh sm 2) 


aya 


2.5 LINKS TC TABLE-GENERATING SUBPROGRAMS 
SUBROUTINE INLST ILSTCOCC 
ILSTCOILC 
SUBROUTINE TO INITIALIZE TABLES IN TABLE GENERATING SUBPROGRAMS ILSTCO2C 
NUMBERED AS OF 21 CCT/66 ILSTCO3C 
ILSTCO4C 
COMMON /PROGID/ RCASE, ACASE, IPSET, ITSET, SETNO, DATE(2), ITUDEFILSTCOS5C 
COMMON /TABCON/ ITABCN, ITABSW(10), IXKSUP(30) ILSTCO6C 
COMMON /SWITCH/ ISW(25) ILSTCO7C 
COMMON /CLASFN/ NINKL(3)_, NXKLAS,» CLXNAM, KLGIVN»y GIVNAM, ILSTCO8C 
$ INCKL(3), IXKLAS ILSTCO9C 
DIMENSION K(1C0), B8(40), S(50) ILSTO1LOC 
ITPCUT = € ILSTCLIC 
LP SEA = 2 ILSTC12C 
Eel ISWlG) .- EQ" ;1),  1PSET = 3 ILSTC1 3C 
PGNC = IPSET ILSTC1L4C 
SETNO = ITSET ILSTCL5C 
SETNO = PGNO + SETNC/100. ILSTC16C 
IS = ISwW(3) ILSTC1L7C 
NINCKL = NINKL(TS) ILSTC18C 
CALL SPEDBG (ly OQ) ILSTC19C 
IF (1SW(7) .NE~ 0) CALL SELECT ( 1 ) ILSTC20C 
IF (ITABSW(1L) -EQe- 1) ILSTC21C€ 
$ CALL RVTAB2 (0, Oy NINCKL, Og Be By Kyo Ky Ky Kyo Op 1) ILSTC22C 
IF (ITABSh(2) .EQe 1) ILSTC23C 
$ CALL ACINC2 (0, Os Oy NINCKLy, Og Oey Oven Ooy 1) ILSTO24C 
IF (ITABSW(3) .EQ. 1) ILSTO25C 
$ CALL INCID2 (0, Oy NXKLAS, NINCKLy» Of 1? ILSTC26C 
IF (1ITABSW(3) ~EQ. 1) ILSTC27C 
$ CALL ACCDEL (Oy Oo Coe Oey Ooy NXKLAS, NINCKLy Oy» 1) ILSTO28C 
IF (ITABSK(5) ~EQ- 0 ~AND.e ITABSW(6) ~EQ. 0) GO TC 100 ILSTC29C 
CALL COMPEF (OeCe Ocoee r0e 900 e 225 NINCKL» O00e Ky Og 0,0e 1 ) ILSTC3O0C 
CALL CSITAB (09 Oe Oo 9De 2D De pDe pDe De eDe gD ey Dey Oey Oy 1) ILSTC301 
100 IF (ITABSW(7) EQ. 1) ILSTO31C 
$ CALL DETCOR (0,9 Ky O, 1) ILSTC32C 
IF (ITABSW(8) .GTe 0 «CRe ITABSW(4) .EQ. 2) ILSTC33C 
$ CALL BASCOM (0, NINCKL, 1) ILSTC34C 
IF (ITABSW(9) .~EQ. 1) ILSTC35C 
$ CALL SUMRIZ (Oy Os Os Oo Oo Oey Oey Oey Ovoy Oey Ove 1) ILSTO36C 
IF (ITABSW{10) «NE. 1) RETURN ILSTC37C 
CALL SUMDAT { 1 ) ILSTC38C 
CALL SUMSAM (Sy Oy NINCKLy, Oy 1) ILSTC39C 
RETURN ILSTC40C 
END ILSTO41C 
SUBROUTINE STOLST SLSTCOOC 
SLSTCOLC 
DUMMY SUBROUTINE TO LINK TAXANL TC ACCUMULATION ENTRIES OF TABLE- SLSTCO2C 
GENERATING SUBROUTINES VERSTICN OF SEP 15/66 SLSTOO3C 


NUMBERED AS OF 21 OCT/66 SLSTCO4C 


aan 


12 


SLSTCO5C 

COMMON /SWITCH/ ISW(25) SLSTCO6C 
COMMON /PROGID/ RCASE, ACASEys IPSETs ITSETs SETNOs DATE(2), ITUDEFSLSTCOTC 
COMMON /CLASFN/ NINKL(3) 9 NXKLAS, CLXNAMy KLGIVNy, GIVNAM, SLSTCO8C 

$ INCKL(3)_, IXKLAS SLSTCO9C 
COMMON /DEBUG/ ICBGSW, KOUNT SLSTC1OG 
COMMON /MISPAR/ KCHNGE, NBREF», NCRED SLSTCLIC 
CCMMON /TABCON/ ITABCNy, ITABSW(10), IXKSUP(30) SLSTC1L2C 
COMMON /DATA/ KLAS(10), SUM(50), BASE(40), CRED(40), SLSTC13C 

$ REFTAX(5), OLDPTX(5), CORTAX(5)» GIFTAX(5) SLSTC1L4C 
DIMENSION K(5) SLSTO15C 
ITPQUT = € SLSTCLGE 
NTAXPR = SUM(1) + O21 SLSTC17C 

XN = SUM(1) SLSTC18C 
[SH=eTSnl2) SLSTC1SC 

INC = INCKL(IS) SLSTC2CE 
CALL SPEDBG (2, INC) SLSTC21C 
NINCKL = NINKLITIS) SLSTC22C 
IRET = 0 SUSTC23¢ 

oF CISWC7) »NEs 0). IRET = SELECT G2) SLSTC24C 

IF ({TRET «EQ. 1) RETURN SLSTC25C 

IF (1O0BGSW .GT.- 0) CALL OBUG1 SLSTC26C 

IF (ITABSW({1) «NE. 1) GO TO 101 SLSTC27C 
CALL RVTAB2 (CeO, NINCKLy»y INC, BASE, CRED, REFTAX, OLUPTXs GIFTAXsSLSTC28C 

$ CORTAXs, NTAXPRy 2) SLSTC29C 
TOR TE SI LIABSW C2) eveNEoe 1)» eG TagLo2 SLSTO30C 
CALL ACINC2 (Cy Oey CINC#1)/25 Oy Oey REFTAX(1)/XNo SLSTC31C 

$ (REFTAX(4) + REFTAX(2))/XNy XNy 2) SLSTC32C 
102 IF (ITABSW(3) .NE. 1) GO TO 104 SLSTO33C 
CALL INCID2 (IXKLAS, INC, O Oe Oey 2) SLSTC34C 
CALL ACCDEL (IXKLAS, INC, OLDPTX(3)+CORTAX(1)+GIFTAX(1), SLSTC35C 

$ REFTAX(2)4+REFTAX(4)+CORTAX(4) 5 XNy Op Op Oo 2) SLSTC36C 
104 IF (ITABSW(5) + ITABSW(6) .~EQ.- 0) GO TO 108 SLSTO37C 
ITAX = ITABSW(5) SLSTC38C 

IF (ITABSW(5) .~.NE~ 0) GO TO 106 SLSTC39€ 

105 ITAX = ITABSW(6) + 2 SLSTC40C 
IF (ITABSW(6) ~EQ. C) GO TO 108 SLSTC41C 

POG] DOL LOL os beta ko 1 SLSTC42C 
ITYPE = I SLSTC43C 
CALL COMSET (ITYPE, ITAXy, INC) SLSTC44C 

107 CONTINUE SLSTC45C 
GO TO (105, 105, 108, 108),y ITAX SLSTC46C 

108 IF (ITABSW(7) .NE.~ 1) GO TO 109 SLSTO47C 
CALL DETCOR (Cy Ke Oe 2) SLSTC48C 

10S IF (ITABSW(8) .-LE~ O -AND. ITABSW(4) ~NE~ 1) GO TO 110 SLSTC49C 
CALL BASCOM (INC»s Oe 2) SLSTC50C 

110 IF (ITABSW(9) .-NE~ 1) GO TO lll SLSTC51C 
ALLTXL = OLDPTX(3) + CORTAX(1) + GIFTAX(1) SLSTC52C 
ALLTX2 = REFTAX(3) + REFTAX(4) + GIFTAX(1) + GIFTAX(2) + GIFTAX(3)SLSTC53C 
CALL SUMRIZ CINCsy Oy Oy Oy NTAXPRy OLDPTX(1)¢ SLSTC54C 

$ REFTAX(1), OLDPTX(3), REFTAX(3), ALLTXL, ALLTX2, 2) SLSTC55C 
111 IF (ITABSW(10) .NE~ 1) RETURN SLSTC56C 
CALL SUMDAT ( 2 ) SLSTC57C 
CALL SUMSAM (SUM, INC, Oy, Oy 2) SLSTC58C 
RETURN SLSTO59C 

END SLSTC60C 
SUBROUTINE QUTLST OLSTCOOC 
OLSTCOLC 

DUMMY SUBROUTINE TO LINK TC PRINTING OCF TABLE-GENERAT ING OLSTCO2C 
SUBROUTINES OLSTOO3C 


NUMBERED AS OF 


DIMENSION K(5), 
COMMON /SWITCH/ 
COMMON /MISPAR/ 
COMMON /TABCON/ 
COMMON /CLASFN/ 
$ INCKL(3), 


DIMENSION TITLE 
DATA (TITLE(TIo1 
$ 
DATA 
$ 
DATA 
$ 
DATA 


(TITLE(T 2 
(TITLE(T»3 


(TITLE (IT s4 
$ 
DATA 
$ 
DATA 
$ 
DATA 
$ 
DATA 
$ 
DATA 
$ 
DATA 
$ 
DATA 
$ 
ITPOCUT = 6 


(TITLEC(I,5 
(TITLE(I,6 
(TITLE(I,7 
(TITLE(I,8 
(TITLE(I 29 
(TITLECTI,1 


(TITLE (Tol 


NINCKL = 
CALL SPEDBG (3, 
IF (ISW(7) NE. 
IF (ITABSW(1) . 
CALL RVTAB2(KLG 

100 IF (ITABSW(2) 
$CALL ACINC2 

$ Oey 3) 
IF CITABSW(3) 
CALL INCID2 (0, 
CALL ACCDEL (Cy, 
ITAX = ITABSW(5 
IF (ITABSW(5) . 
ITAX = ITABSW(6 
IF (+TABSW(6) - 
DO AGS f= “Ls 1 
ITYPE = I 
00 104 J 
SOURCE (J) TIT 
CALL COMPEF (0, 
$ SCURCE, ITYPE 
POS) IF i LTAX, -EQ.. 3 
$ OeeCey TTPOUT 

105 CONTINUE 

GO TO (102, 102 
106 IF (ITABSW(7) . 
CALL DETCOR 
110 TF (ITABSW(8) . 


NINKL ( 


102 
103 


ls 


104 


(KLGIVN, 


eNE. 


(IXKTYP» 


125 


21 OCT/66 

B(40) 

TSW(25) 

KCHNGE, NBREF,», NCRED 

ITABCNy ITTABSW(10)»5 IXKSUP(30) 


NINKL(3) 9 NXKLAS» CLXNAM, KLGIVNy GIVNAM, 


IXKLAS 
DIMENSION SOURCE(5), 


IPAR(5), S(50) 

(Sell) 

>» I=1,5) 

4 30HWAGE AND SALARY EMPLCYMENT 
Ve Il=1,5) 

/ 30HSELF-EMPLOYMENT / 
Ve T=1,5) 

/ 30HFARMING AND FISHING / 
dys IT=1,5) 

4 Z0HUNINCORPCRATED BUSINESS PROFIT / 
dy T=1,5) 

/ ZOHCCRPORATE SOURCES / 
de [=1,5) 

7 ZOHFIXED-INCOME INVESTMENTS / 
dy, T=1,5) 

/ 30HCTHER INVESTMENT SCURCES / 
Vy, T=1,5) 

J 30HTRANSFERS AND MISC. 
), T=1,5) 

/ 3C0HLARGE COMPANIES / 
QO)» I=1,5) 

7 30HSMALL COMPANTES / 
l)»s I=1,5) 

/ 30HSPECIAL INDUSTRIES / 


~ 


SCURCES / 


ts) 
0) 
0) 
NE. 
IVN»s 
oEQ. 


CALL SELECT ( 3 ) 
1) GG TO 100 
GIVNAM, NINCKLy 
1) 

GIVNAM, Og 


Og Be By K 9» K » K» Ke Os 3) 


(NINCKL4+1)/2, GHSP.-INC, Ocsy Ocy 
1) GO TO 
NXKLAS » 


Oey Olens 


101 
NINCKL» 
Oee NXKLAS, 


GIVNAM, 3) 
NINCKL, 


Cy 
Or 
) 
NE. QO) 
yet 2 
EQ. QO) 
1 


GIVNAM, 3) 


GO TO 103 


GO TQ 1051 


5 
LE(J,1TTYPE) 

Oy Oe 900200 20e 22» 
» ITAX, ITPCQUT, 3) 
b pCALL. CSI TAB, (0, 
» 3) 


NINCKL» KLGIVN, GIVNAM, 


O, Dew eg@DepDegDepDe gp Dee Deg Dey 


y LO6y 106) ITAX 
NE. 1) GO TC 110 
IPAR» ITPOUT, 3) 


LE. O «AND. ITABSW(4) NE. 1) GO TC 114 


OLSTCO4C 
OLSTCO5C 
OL STOO6C 
OLSTCO7C 
OLSTCO8C 
OLSTCO9C 
OLSTCLOC 
OLSTC1I1C 
OLSTO12C 
OLSTC13C 
OLSTCL4C 
OLSTC1S5C 
OLSTC16C 
OLSTOL7C 
OLSTC1LEC 
OLSTC19C 
OLSTC200 
OLSTC21C 
OLSTC22C 
OLSTC23C 
OLSTC24C 
OLSTC25C 
OLSTC26C 
OLSTC27C 
OLSTC28C 
OLSTC29C 
OLSTO30C 
OLSTC31C 
OLSTC32C€ 
OLSTC33C 
OLSTO34C 
OLSTO35C 
OLSTC36C 
OLSTO370 
OLSTC38C 
OLSTO39C 
OLSTC4O0C 
OLSTO41C 
OLSTC42C 
OLSTC43C 
OLSTC44C 
OL STC45C 
OLSTO46C 
OLSTC47C 
OLSTC48C 
OLSTC49C 
OLSTC5OC 
OLSTC5SIC 
OLSTC52C 
OLSTC53C 
OLSTC54C 
OLSTC55C 
OL STC56C 
OLSTC57C 
OLSTC58C 
OLSTC59C 
OLSTC60C 
OLSTC6l1 
OLSTC612 
OLSTC610C 
OLSTC62C 
OLSTC63C 
OLSTC64C 
OLSTO65C 


111 
1l2 


113 
114 


115 
116 


11? 


INC = 0 
CALL BASCOM 
IF (ITABSW(8) . 
IF (ITABSW(8) .« 
OO 111 INC = ly 
CALL BASTAB 
CONTINUE 
IF (ITABSh(8) . 
INC = C 
CALL BASTAB 
CALL BASKLS (NI 
IF (ITABSW(4) . 
IF (ITABSW(4) . 
DO 115 INK = 1 
CALL MARTAB (IN 
CONTINUE 
INC = C 
CALL MARTAB 
IF (ITABSW(9) . 
$CALL SUMRIZ(O,» 
IF (I TABSW(10) 
CALL SUMDAT ( 3 
CALL SUMSAM (S,¢ 
RETURN 
END 


(INC, 


(INC, 


(INC, 


(INC, 
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NINCKLy» 3) 
Lee.0)° (GO TO ULT4 
NES 1?) GO O10. Li? 
NINCKL 
NINCKL, KLGIVN, 


EEGs), GUSLGCLTo 

NINCKL, KLGIVN, 

KLGIVN, GIVNAM, 
GO To 117 


GO TO 116 


NCKL, 
Se | 
NE. 1) 
e NINCKL 


Ky NINCKLy», KLGIVN, 


NINCKLy 
EQ. 1) 
NINCKL »KLGIVN,GIVNAM, 
eNE~ 1) RETURN 

) 
O, NINCKL, 


KLGIVNy, 


6HINCCME, 


GIVNAM, 


GIVNAM, 
ITPOUT ) 


GIVNAM, 


GIVNAM, 


O» 


3) 


av 


Oo» 


ITPOUT ) 


ITPOQUT ) 


ITPCUT ) 


ITPQUT ) 


Oss 


Ooys 


Os 


Oo, 3) 


OLSTC66C 
OLSTC6é7C 
OL STC68C 
OLSTC69C 
OLSTC7OC 
OLSTC71C 
OLSTC72C 
OLSTC73C 
OLSTO74C 
OLSTO75C 
OLSTC76C 
OLSTCT7IC 
OLSTC78C 
OLSTC79C 
OLSTC8OC 
OLSTC81C 
OLSTC82C 
OLSTO83C 
OLSTC84C 
OLSTC85C 
OLSTO86C 
OLSTC87C 
OLSTC88C 
OLSTC89C 
OLSTC9IOG 
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TABLE-GENERATING SUBPROGRAPFS 


SUBROUTINE SUMRIZ (INCKL, NINCKL», KLASFN, CLASNM, NTAXPRe TINCL, SMRZCOCC 

$ TINC2, PTAX1ls PTAX2» ALLTX1l»y ALLTX2, IENTRY) SMRZCOILC 
SMRZCO2C 

SUBROUTINE TO SUMMARIZE RECORDS THAT WERE PRCCESSECO IN THIS PASS SMRZCO3C 
NUMBERED AS OF 21 OCT/66 SMRZCO4C 
ARGUMENTS SMRZCO5C 
INCKL = INCOME CLASS OF DATA RECCRD SMRZCO6C 
NINCKL = NUMBER CF INCOME CLASSES SMRZCO7TC 
KLASFN = CLASSIFICATICN OF ALL RECCRDS IN TABLE SMRZCO8C 
CLASNM = ALPHA DESCRIPTION OF CLASSIFICATION (A6) SMRZCOSC 
NTAXPR = NUEMBER OF TAX UNITS IN CATA RECORD SMRZC1OC 
TINCL, TINC2 = CURRENT AND REFORMED TAXABLE INCOME SMRZC1I1C 
PTAX1L» PTAX2 = CURRENT AND REFORMED PERSONAL INCOME TAX SMRZC12C 
ALLTX1, ALLTX2 = ALL DIRECT TAXES (CURRENT AND PRCPOSED) SMRZ01 3C 
ENTRIES SMRZCLA4C 
1 = INITIALIZATION SMRZC15C 

2 = ADD DATA FROM SAMPLE RECORD TO ACCUMULATION SMRZC16C 

3 = PRINT CUT RESULTS SMRZCLIC 
SMRZC18C 

COMMON /PROGID/ RCASE, ACASE, IPSET,s ITSET, SETNC, DATE(2), ITDEFSMRZC19C 
CCMMON /PARAM/ ASS(200), ALLOW(50), ITTUDEF, IDATA, IBASIS» SMRZC2CC 

$ IORDER(7), ISPRES(2592), NSUP, IMEINTP, ITPOQUT, ITDATA SMRZC21C 
DOUBLE PRECISION ACCUM SMRZC211 
DIMENSION ACCUM(5C_6)_, NTUNIT(50), NRECS(50), COLS(6), SwW(2) SMRZC22C 
DATA (SW(1), T=l,2) / 3HNOT, 3HARE / SMRZC2 3C€ 
SMRZC24C 

GO TO ( 1CCy 200, 300 )» IENTRY SMRZC25C 
SMRZO026C 

ENTRY TO INITIALIZE TABLES USED IN THIS SUBRCUTINES SMRZC27C 
SMRZC28C 

POC DU e104, b= 1s 50 SMRZC29C 
NRECS (1) = © SMRZC30C 
NTUNIT(I) = O SMRZC31C 
DO 101 J = le 6 SMRZC32C 
ACCUM(I,J) = O- SMRZC33C 
101 CONTINUE SMRZC34C 
DO 102 I = ly 6 SMRZC35C 
COLS(I) = C. SMRZC36C 
102 CONTINUE SMRZO37C 
NSUMUN = C SMRZ038C 
NSUMRC = C SMRZO39C 
RETURN SMRZC40C 
SMRZC41C 

ACCUMULATION ENTRY SMRZC42C 
SMRZC43C 

200 ACCUM(INCKL,1) = ACCUM(INCKL,1) + TINCL SMRZC44C 
ACCUM(INCKL,2) = ACCUM(INCKL,2) + TINC2 SMRZC45C 
ACCUM(INCKL,3) = ACCUM(INCKL,3) + PTAX1 SMRZC46C 
ACCUM(INCKL,4) = ACCUM{INCKL,4) + PTAX2 SMRZ047C 
ACCUM(INCKL,5) = ACCUM(INCKL,5) + ALLTX1 SMRZC48C 
ACCUM(INCKL,6) = ACCUM(INCKL,6) + ALLTX2 SMRZC49C 
NTUNITCINCKL) = NTUNIT(CINCKL) + NTAXPR SMRZCS5O0C 
NRECS (INCKL) = NRECS CINCKL) + 1 SMRZC51C 


Cur es 
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RETURN SMRZC52C 
SMRZ053C 

ENTRY TO PRINT OUT SUMS SMRZ054C 
SMRZC55C 

30C WRITE (ITPOUT,1) SMRZC560 
WRITE (ITPOUTs2) ACASE, RCASE, SETNCe, DATE SMRZ057C 
WRITE (ITPOUT,3) CLASNM,y KLASFN, SW(ITUDEF) SMRZC58C 
CALL. SUPREF (3 2) SMRZC59C 
WRITE (ITPOUT»4) SMRZC600 

DO 302 I = ly NINCKL SMRZO61C 

DO 201 J = le 6 SMRZC62C 
ACCLM(I,J) = ACCUM(I,J) / 1000. SMRZ 06 30 

301 COLS(J) = COLS(J) + ACCUM(T,J) SMRZ064C 
NSUMUN = NSUMUN + NTUNIT(T) SMRZCO5C 
NSUMRC = NSUMRC + NRECS (T) SMRZC66C 

302 WRITE (ITPCUT,5) IFT, NRECS(IT)» NTUNIT(I)», (ACCUM(I,J)_5 J=1l¥6) SMRZC67C 
WRITE (I1TPCUT,6) NSUMRC» NSUMUN, (COLS(I), I=1,6) SMRZC68C 
RETURN SMRZC69C 
SMRZCTOC 

1 FORMAT (32HI1SUMMARY OF RECORDS IN THIS PASS) SMRZCTI1IC 

2 FORMAT (1LSHOASSUMPTICN SET, 3X5 A6 / 14H RATE SCHECULEs 4X A6 / SMRZO72C 

$ 1CH TABLE SET, 8X, F6.2 / SH DATE, TX, 2A6 ) SMRZCT73C 

3 FORMAT (3€HORECORDS PROCESSED ARE TAX UNITS IN 4 A6y 6H CLASS», 149SMRZC74C 

$ 2H» » A3e 32H AGGREGATED INTO HOUSEHCLD UNITS ) SMRZC75C 

4 FORMAT {(7HOINCOME, 2(4X,1lOHNUMBER OF)» 8Xy L4HTAXABLE INCOME, 9X,SMRZC76C 


$ 2CHPERSONAL INCCME TAX, 7X»y LSBHTCTAL DIRECT TAXES/6H CLASS ¢4Xs12SMRZC7IC 
$HDATA RECCRDS», 3X5 SHTAX UNITS, 3(6X»20HCURRENT PROPOSED)/ 1X)SMRZC78C 
5 FORMAT ( I[5, 2114, 1X, 6F13.1 ) SMRZO79C 
6 FORMAT ( 6HOTCTAL, 1135 114, 1X», 6F13-1 ) SMRZC8OC 
END SMRZC810 
SUBROUTINE RVTAB2 (KLASFN, CLASNM, NINCKL» INCKLS, BASE, CRED, RVTBCOCC 

$ REFTAX, OLDPTX, GTAX, CTAX, NTAXPR», IENTRY) RVTBCOI1C 
RVTBCO2C 

SUBROUTINE TO ACCUMULATE AND PRINT OUT TABLES SHOWING EFFECT OF RVTBCO3C 
EACH REFORM CN TAX REVENUE YIELD BY INCOME CLASS, PRO-RATED RVTBCO4C 
ACCORDING TO SPECIFICATION (JUNE 29,5 1966) REVISED 7 JSULY/66 RVTBCOS5C 
RENUMBERED FOR GITAN PRINTING RVTBCO6C 
ARGUMENTS (INPUT AT INITIALIZATICN AND PRINTING) RVIBCO7C 
KLASFN = CLASSIFICATIGN OF ALL TAX UNITS ANALYZED IN TABLE RVTBCO8C 
(=O IF TAX UNITS ANALYZED ARE NOT A PROPER SUBSET OF ALL RVTBCO9C 

CANADIAN RESIDENTS) RVTBC1CC 

CLASNM = ALPHA NAME CF CLASSIFICATION (A6) RVTBCLIC 
NINCKL = NUMBER OF INCOME CLASSES ANALYZED IN TABLES RVTBC12C 
ARGUMENTS (INPUT AT EACH ENTRY FCR ACCUMULATION) RVTBC1 3C 
INCKLS = INCOME CLASS GF DATA ENTERED RVTBC14C 
BASE = CHANGES IN PERSONAL TAX BASE RVTBCI1SC 
CRED = CHANGES IN NON-REFUNDABLE PERSONAL TAX CREDITS RVTBC160 
OLOPTX = CURRENT BASE, TAX CREDITS, AND PERSCNAL INCOME TAX RVTBC17C 
GTAX, CTAX = GIFT AND CORPORATE TAX DATA {CURRENT AND CHANGES) RVTBC1S8C 
NTAXPR = NUMBER CF TAXPAYERS RVTBC1IC 
ENTRY POINTS (DETERMINED BY IENTRY) RVTBC200 
1 = INITIALIZATION RVTBC21C 

2 = ADD DATA TO TCTALS ACCUMULATED RVTBC22C 

3 = PRINT SUMMARY TOTALS RVTBC23C 
RVTBC24C 

COMMON /FPAR/ MSTAT, IWWIFE, OEPCH, OQDEP RVTBC25C 
COMMON /PRCGID/ RCASE, ACASEs ISETNOs, LTSET, SETNO, CATE(2), 1 TOEFRVIBC26C 
COMMON /PARAM/ ASS(200),5 ALLOW(50), ITUDEFs, IDATA, IBASIS, RVTBC27C 

$ TORDER(7) 5 ISPRES(2542), NSUP, IMINTP, ITPCUT, ITDATA RVTBC28C 
COMMON /DEBUG/ IDBGSW, KOUNT RVTBC29C 


aly 


COMMON /SWITCH/ ISw(25) RVTBC30C 
DIMENSION BASE(40), CRED(40), OLDPTX(5), GTAX(5), CTAX(5) RVTBC31C 
COMMON /REFDIC/ IRTAB(7.10%93)2 KATREF(7), NREF{7), RVTBC32C 

$ NKAT, NRLIST, NCTAX, NGTAX RVTBC33C 
DOUBLE PRECISION BASDEL», TAXDEL, OLD, GIFTAX, CORTAX, REALTX RVTBCO331 
DIMENSION BASDEL(50), TAXDEL(20%950), CLD(2095)y5 GIFTAX(2095), RVTBC34C 

$ CORTAX(20,5), KRTAB(7,10,3)>, RVTBC35C 
$TITSEC(8,7), IDEL(50), IRCRED(10), TAXSAV(5), IRFCEL(5), TCRED(2),RVTBC36C 

$ OTIT(3,2), ATIT({2), X(11), TOTAL(11), AGG(11), AGGPT(11) RVTBCO37C 

$ » REFTAX(5), REALTX(20), TAXPRS(20) RVTBO38C 
DIMENSION DUMMYB(1,50) RVTBO39C 
DATA (IRCRED(I)» I=1910) /4, 105 235 325 339 34%, 4*0/ RVTBC400 
DATA (IRFDEL (I), T=1e5) S be Te Be Oy OS RVTBO41C 
DATAPLIIFZSEG (I yl) oy I= La 8bas RVTBC42C 

$ 48HCHANGES IN TAX RATES / RVTBC43C 
DATA (TITSEC(I 2), I = 158) / RVTBC44C 

$ 48HTAXATION OF THE FAMILY AS A UNIT / RVTBC45C 
DATA (TITSEC(I,3), I = 1,8) / RVTBC46C 

$ 48ECHANGES IN TAXATION OF CORPORATE SCURCE INCOME / RVTBC47C 
DATA (TITSEC(1e4), I = 1,8) / RVTBC48C 

$ 48HCHANGES IN TAXATICN OF OTHER PROPERTY INCOME / RVTBC49C 
DATASCKTIPTSEC (1495)5. Lasnly8)./ RVTBC5SCC 

$ 4BHCHANGES IN TAXATICN OF EMPLOYMENT INCCME / RVTBC5I1C 
DATA (TITSEC(I,6)5 IT = 1298) / RVTBC52C 

$ 4B8KOTHER ASPECTS CF COMPREHENSIVE BASE 4 RVTBC53C 
DATA (TITSEC(I 7), IT = 198) / RVTBC54C 

$ 48KCHANGES IN CONCESSICNARY ALLCWANCES / RVTBC55C 
DATA (OTIT(I yl)», I = 193) / LBHTOGETHER / RVTBC56C 
DATA (OTIT(I,2),5 I = 1ly3) / L8HSECTICN BY SECTION/ RVTBC57C 
DATA ATIT(1) / 5H NOT / RVTBC58C 
DATA ATIT(2) / 5H ARE / RVTBC59C 
RVTBC6CC 

GO TO (1000,2000, 3000), IENTRY RVTBC61C 
RVTBC62C 

rrr ENTRY POINT ------- 3-3-2 - - - - - - - - - - - RV TBC63C 
ENTRY TO INITIALIZE SUBROUTINE FOR NEW ACCUMULATICN RVTBC64C 
RVTBC65C 

100C NFDEL = 3 RVTBC66C 
IF (I1SW(4) .-EQ. 0) GO TO 1002 RVTBC67C 
NREF(1) = 4 RVTBQ68C 
NREF(3) = 5 RVTBO6SC 
NREF(6) = 2 RVTBC7OC 
NREF(7) = 6 RVTBC71C 
1002 KK = 1 RVTBOT2C 
DO 103 I = le» NKAT RVTBCT73C 

M = NREF(TI) RVTBC74C 

DO 103 J = ly» M RVTBCT75C 

DO 101 K = ly 3 RVTBCT76C 

101 KRTAB(I,JeK) = IRTAB(II 9 Jy K) RVTBC77C 
IF (KK .GT. NSUP) GO TO 103 RVTBCT78C 

IF (I NE.’ ISPRES(KKel)) GO TO 103 RVTBC79C 

IF (J eNE}] ISPRES(KK,2)) GO TC 103 RVTBC8OC 

DL 102 Keel, 3 RVTBC81C 

102 KRTAB(I,JeK) = O RVTBC82C 
KK = KK + 1 RVTBO83C 

103 CCNTINUE RVTBO84C 
0G 104 J = ly NRLIST RVTBC85C 
BASDEL(J) = O RVTBC86C 

DO 104 I = lg» NINCKL RVTBO87C 

104 TAXOEL(I,J) = O RVTBC88C 
NOs 1LOSe).=2 1%. 5 RVTBC89C 

DO 105 I = ls» NINCKL RVTBC9OC 


GIFTAX(1,J) QO. RVTBCIILC 
OLD(I,J) = OC. RVTBC92C 


202 


203 


204 
2c5 


2C6 
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CORTAX(I,J) = O- 

DC 106 K = ly» NINCKL 
TAXPRS(K) = Co 
REALTX(K) = O- 
RETURN 


~----------------------- ENTRY POINT----------------------------- 


ENTRY TO AOD DATA SET TO TOTALS ACCUMULATED 


DO 199 K = ly» 4 


OLD(INCKLS»K) OLD(INCKLS»K) + OLDPTX(K) 


XN = NTAXPR 

TAXPRS(INCKLS) = TAXPRS(INCKLS) + XN 
ITAX = lL 

TOTCRD = CLODPTX(2) 

TOTBAS = CLDPTX(1) 

OLDTAX = OLDPTX(3) 

TCRED(1) = TOTCRD/XN 

TCRED(2) = O. 

IBTHRU = 0 

IF (IDBGSk «EQ. 2) WRITE (I TPOUT,28) 
LOOP = OC 

LOOP = LOOP + 1 

SUM = Q. 

DO 201 J = ly NRLIST 

IDEL(J) = 0 

IF (LOOP .GT. NKAT) GC TO 220 

K = TORDER( LOOP) 

IF (K -EQ- 1) GO TO 215 

IF (K -EQ. 2) GO TC 218 

PRORATE TAX EFFECTS CF BASE CHANGES 
IF (IBASIS .EQ. 2) GO TO 203 

IF (IBTHRU .~EQ. 1) GO TC 200 

IBTHRU = 1 

DO 202 K = 35 7 

M = NREF(K) 


DG 202 J'= "1's 

L = KRTAB(K, Jel) 

IP At 2.60.0) GO TG 202 
SOM = (SUM. + BASE (C=7-) 
POEL tty s="1 
BASCEL(L) = 
CONTINUE 

GC TQ 205 

M = NREF(K) 
DC 204 J = ly M 


BASDEL(L) + BASE(L-7) 


L = KRTAB(KyJo1) 
ie CC 6 EUs Or Gore 204 
SUM = SUM + BASE{L-7) 


LOEL (Lid P=" I 


BASCEL(L) = BASDEL(L) + BASE(L-7) 

CONTINUE 

TCTBAS = TOTBAS + SUM 

IF (EITAX .EQe. 1) TAX = CURTAX (TOTBAS/XNy TOTCRO/ XN) ¥*XN 
IF (ITAX «EQe. 2) TAX = PROTAX (TOTBAS/XNy, TCRED, O)*XN 
TAX = TAX - OLDTAX 

DO 20€ J=&,NRLIST 

IF (IDEL(J) -EQ. 0) GE TO 206 

LF USUMN“ Le. (0. ) *GOSIC e206 

TAXCEL(INCKLS,J) = TAXDEL(INCKLS,J) + TAX*(BASE(J-7)/SUM) 
CONTINUE 

OLODTAX = CLDTAX + TAX 

LINE = 155C 

IF (IDBGSh .~EQe- 2) WRITE (ITPOCUT,29) LINE, TAX, CLDTAX, ITAX 
ENTER NON-FAMILY CREDITS 


RVTBC93C 
RVTBC94C 
RVTBC95C 
RVTBO960 
RVTBC97C 
RVTBOSBC 
RVTBC9I9C 
RVTB100C 
RVTB1LO1C 
RVTB102C 
RVTB103C 
RVTB104C 
RVTB105C 
RVTB106C 
RVTB1LO7C 
RVTB1O8C 
RVTB109C 
RVTB1100 
RVTBI1LIC 
RVTB112C 
RVTB113C 
RVTB1140 
RVTB11L5C 
RVTB116C 
RVTB117C 
RVTB118C 
RVTB119C 
RVTB120C 
RVTB121C 
RVTB122C 
RVTB123C 
RVTB124C 
RVTB125C 
RVTB126C 
RVTB127C 
RVTB128C 
RVTB129C 
RVTB13CC 
RVTB131iC 
RVTB132C 
RVTB133C 
RVTB134C 
RVTB135C 
RVTB136C 
RVTB137C 
RVTB138C 
RVTB139C 
RVTB140C 
RVTB141C 
RVTB142C 
RV1T™B143C 
RVTB144C 
RVTB145C 
RVTB146C 
RVTB147C 
RVTB148C 
RVTB149C 
RVTB150C 
RVTB151C 
RVTB152C 
RVTB153C 
RVTB154C 
RVTB155C 
RVTB156C 
RVTB157C 


2Cc7 
208 


209 


2091 


210 
211 


216 


217 


2171 


Le] 


IF (IBASIS -EQ.- 1) GC TO 207 

IF (K .-EQ. 3) GO TO 207 

ae UK 2605 °57°CGO TO,211 

Pe tk seG. 7) GOTO 213 

GCG TO 200 

I 1 

I Prtrs 

PE "{1 «GT. 3) ° GO TC 210 

TOTCRD = TOTCRD + CRED(I+6) 
TCRED(2) = TCRED(2) + CRED(1I+6)/XN 
ICTHRU = 1 

IF (1-EQ-2) GO TO 2091 

TOTCRD = TOTCRD + CRED(T) 
TCRED(1) = TCRED(1) + CRED(I)/XN 


RVTB158C 
RVTB159C 
RVTB160C 
RVTBL6IC 
RVTB162C 
RVTB163C 
RVTB 1640 
RVTB165C 
RVTB166C 
RVTB167C 
RVTB168C 
RVTB169C 
RVTB170C 
RVTBITI1C 


IF (ITAX .EGe 1) TAX = (CURTAX(TOTBAS/XN, TCRED(1)) -— TCRED(2))*XNRVTB172C 


IF (ITAX -EQ- 2) TAX 
TAX = TAX -— CLDTAX 
OLDTAX = CLDTAX + TAX 
LINE = 176C 


PROTAX (TOTBAS/XNy TCRED, 0) *XN 


IF (IOBGSW -EQ. 2) WRITE (I TPOUT,29) LINE, TAX, CLOTAX, ITAX 
II = IRCRED(1) 

IF (II «EQ. 23 «AND. ICTHRU ~EQ. 1) IT = ll 
TAXCELCINCKLS,II) = TAXDELCINCKLS,II) + TAX 

GO TO ( 2C8,y 212, 214 Jy ICTHRU 

IF (IBASIS .~EQ. 2) GO TC 200 

I = 3 

ICTHRU = 2 

GO TO 209 

IF (IBASIS .~EQ. 2) GC TG 200 

I = 3 

ICTHRU = 3 

I= I+ 1 

IF (I .GT. 6) GO TCG 200 

GO TO 209 

COMPUTE EFFECTS OF CHANGES IN TAX RATES 

LAX = '2 

in= 0 

a= > + 1h 

IF (I .GT. 4) GO TO 2171 

L = KRTAB(1,Ie1) 

tL =tL 

IF {L .£€Q. 0) GO 10 216 

ert’ SOle” 2) LL =_tl— 7 

K = I 

TOTBAS = TOTBAS + BASE(LL) 

BASDEL(L) = BASDEL(L) + BASE(LL) 

IF (1 LT. 3) GO TO 217 

Kes 3 

IF (1 -EQ- 3) TCRED(1) = TCRED(1) + CRED(7)/XN 
IF (1 .E€Q. 4) TCRED(1) = TCRED(1) + CRED(1)/XN 
TAX = PROTAX (TOTBAS/XN, TCRED, -K)*XN —- OLDTAX 
TAXDEL(INCKLS,L) = TAXDELCINCKLS,L) + TAX 
OLDTAX = OLODTAX + TAX 

LINE = 2090 

IF (IDBGSW -EQ- 2) WRITE (ITPOUT,29) LINE,» TAX, CLDTAX, ITAX 
GO TO 216 


TAX = AVGING (OLDTAX) 

TAXDELCINCKLS,5) = TAXDEL(INCKLS,5) + TAX 
OLDTAX = OLDTAX + TAX 

TOTBAS = TOTBAS + BASE(33) 

BASDEL(40) = BASDEL(40) + BASE(33) 

TAX = PROTAX(TOTBAS/XN, TCRED, 0)*XN —- OLDTAX 
TAXDEL(INCKLS,40) = TAXDEL(INCKLS»40) + TAX 
OLDTAX = OLDTAX + TAX 


RVTB1L73C 
RVTB174C 
RVTB175C 
RVTB176C 
RVTB177C 
RVTB178C 
RVTB179C 
RVTB180C 
RVTBIBIC 
RVTB182C 
RVTB183C 
RVTB184C 
RVTB185C 
RVTB186C 
RVTB187C 
RVTB188C 
RVTB189C 
RVTB190C 
RVTB19IIC 
RVTB1920 
RVTB193C 
RVTB194C 
RVTB195C 
RVTB196C 
RVTB197C 
RVTB198C 
RVTB199C 
RVTB2000 
RVTB201C 
RVTB202C 
RVTB20 30 
RVTB204C 
RVTB205C 
RVTB206C 
RVTB207C 
RVTB208C 
RVTB209C 
RVTB210C 
RVTB2110 
RVTB212C 
RVTB213C 
RVTB 2140 
RVTB215C 
RVTB216C 
RVTB2170 
RVTB2180C 
RVTB219C 
RVTB220C 
RVTB2210 


140 


LINE = 2180 RVTB222C 

IF (IDBGSW -EQ. 2) WRITE (1 TPOUT,29) LINE, TAX, OLDTAX, RVTB223C 

GO TO 200 RVTB2240 

C COMPUTE EFFECTS OF CHANGED DEFINITION CF TAX UNIT RVTB225C 
218 CALL FAMDEL (TAXSAV»,CLDTAXsNFDELs I TAX) RVTB226C 

I = 0 RVTB227C 

Ded or ok eek RVTB228C 
IF (1 .GT. NFDEL) GO TO 200 RVTB229C 

It = IRFDEL(T) RVTB230C 
TAXDEL(INCKLSsII) = TAXDELCINCKLS,II) + TAXSAV(T) RVTB2310 

GO TO 219 RVTB232C 

C ENTER CORPORATE AND GIFT TAX DATA RV1TB233C 
220 DO 221 I = ly NCTAX RVTB234C 
221 CORTAX(INCKLS»I) = CORTAX(INCKLSeI) + CTAX(T) RVTB235C 
DO 222 I = l» NGTAX RVTB236C 

222 GIFTAX(INCKLS,I) = GIFTAX(INCKLS,I) + GTAX(T) RVTB237C 
REALTX(INCKLS) = REALTX(INCKLS) + REFTAX(3) RVTB238C 

IF (IDBGSW.NE. 2) GO TO 223 RVTB239C 

DO 2221 I = 1l-» NRLIST RVTB2400 

2221 DUMMYB(1,1) = BASDEL(I) RVTB241C 
CALL DBGMAT(DUMMYB, 1,» NRLIST, 3,96HBASDEL »,6HRVTAB2, RVTB242C 

CALL OBGMAT (TAXDEL »NINCKL gNRLIST_3 p6HTAXDEL yOHRVTAB2,222,20,50) RVIB243C 

CALL OBGMAT(CORTAX, NINCKLyNCTAX, 3, 6GHCORTAXs6HRVTAB2,222,20,5) RVIB244C 

CALL DBGMAT(GIFTAX,NINCKL»NGTAX 93 pGHGIFTAX» GHRVTAB2, 22252095) RVTB245C 

CALL DBGMAT( OLD,NINCKL» 55 3¢ 3HOLD » 6HRVTAB2,s 222220;5) RV TB2460 

223 RETURN RVTB247C 
RVTB248C 

ee ee EN UR Y PO UN ra ee RVTB249C 
C ENTRY TO PRINT SUMMARY TABLES RVTB250C 
C RVTB251C 
3000 CONTINUE RVTB252C 
DO 301 J = ls 5 RVTB253C 

301 AGG(J) = Ce. RVTB254C 
ITAB = 0 RVTB255C 

302 ITAB = ITAB + 1 RVTB256C 
IF (ITAB .GT. 4) RETURN RVTB257C 

WRITE (CITPOUT,1) RVTB258C 

IF (KLASFN .EQ. 0) WRITE (ITPCUT,2) RVTB259C 

IF (KLASFN .NE~ O) WRITE (ITPCUT»?3) CLASNM, KLASFN RVTB260C 

WRITE (ITPOUT,4) ATIT(ITUDEF), SETNC, RCASE, RVTB261C 

$ (OTIT(I,IBASIS)», T=1_93)y (DATE(I),IT=192),_ ACASE RVTB262C 

& (CELETED) RVTB263C 
IF (ITAB .GTe- 1) GC TO 316 RVTB264C 

C PRINT TABLE 1 RVTB265C 
WRITE (ITPOUT,5) RVTB266C 

IKAT = 0 RVTB2670C 

303 IKAT = IKAT + 1 RVTB268C 
IF (IKAT .GT. NKAT) GO TO 311 RVTB269C 

TI = IORDER(IKAT) RVTB27CC 

WRITE (ITPOUTs6) IKATy IIs (TITSEC(K,TI)»s K=1,58) RVTB271C 

DC 204 K = ly 5 RVTB272C 

304 TOTAL(K) = OC. RVTB273C 

J = 0 RVTB274C 

5 th Baers |v SL a RVTB275C 
IF (J .GT. NREF{II)) GO TO 310 RVTB276C 

IF (KRTAB(II,J,1) -NE~ 0) GO TO 306 RVTB277C 

WRITE (ITPOGUT,23) IIe J RVTB278C 

GO. 10305 RVTB279C 

306 DG 307 K = ll,» 5 RVTB2Z8CC 
S01 AUK =) Os RVTB281C 
Ll = KRTAB(IIsJs91) RVTB282C 

L2 = KRTAB(IIsJe2) RVTB283C 

L2 = KRTAB(II,J93) RVTB284C 

DO 308 K = ly NINCKL RVTB285C 

Rt 2) = K02) 4 TAXDEUCK EL) RVTB286C 


308 


3C9 


31C 


311 
3111 


34:12 


312 


313 


3131 


314 


315 


316 


lat 


318 


319 


320 


321 


WAL 


IF {lL2 .NE. O) X(4) 
7 LS .NEs OF X(5) 
CONTINUE 

X(1) = BASDEL(L1) 
IF (L2 eEQe 3) X03) = 22*X(4) 

DO 309 K = ly, 5 

X(K) = X(K)/1000. 

TOTAL(K) = TOTAL(K) + X(K) 

AGG(K) = AGG(K) + X(K) 

WRITE (ITPOUT,7) IIs Je (XK), K=195) 
GC TO 305 

WRITE (ITPOUT,8) (TOTAL(K), K=1,5) 

GO TO 303 

DO 3111 I = ly 5 

X(I) = O- 

DO 2112 K = ly, NINCKL 

X{2) = X02) + REALTX(K) -— OLD(K,3) 
X(2) = X(2) - AGG(2)*1000. 

X(2) = X(2)/1C00- 

WRITE (ITPOUT,25) (X(1)» T=1,5) 
AGG(2) = AGG(2) + X(2) 

WRITE (ITPOUT.9) (AGG(K), K=1,5) 

DO si2 K = 1, 5 


X(4) + CORTAX(K,L2) 
X(5) + GIFTAX(K,L3) 


X(K) = O. 

DC 313 K = ly NINCKL 

X(1) = XCL) + OLD(Ky1) 
X(2) = X(2) + OLD(K,3) 
X(3) = X03) + OLO(Ks4) 
X(4) = X04) + CORTAX(Kel) 
K(5) = X(5) + GIFTAX(K,1) 


BOeI131.K = 1, 5 

K(K) = X(K)/1000. 

WRITE (ITPOUT,10) (XK), K=1,5) 

CE 0314 K_ = 1», 5 

TOTAL(K) = X(K) + AGG(K) 

WRITE (ITPOUT,11) (TOTAL(K), K=1,5) 

DO 315 K = ly 5 

IF (X(K) «GT. O01.) X{K) = 100. * AGGIK) / XK) 
WRITE (CITPOUT,12) (X(K), K=195) 

GO TO 302 

PRINT TABLES 2 AND 3 

IF (ITAB .NE~ 4) WRITE (ITPOUT,13) ITAB 
IF (ITAB EQ. 2) WRITE (ITPOUT,14) 

IF (ITAB -EQ. 3) WRITE (ITPOUT,15) 

IF (ITAB .EQ. 4) WRITE (ITPOUT,27) ITAB 
NKO = 1 

NK = NINCKL 

NINC = 10 

TF (NINCKL -GT. NINC) NK = NINC 

DO 318 K = ly» ll 

AGGPT(K) = OC. 

AGG(K) = C. 

WRITE (ITPOUT,16) C(I» I = NKO» NK) 

IKAT = 0 

IKAT = IKAT + 1 

IF (IKAT .GT. NKAT) GO TO 326 

II = TORDER(IKAT) 

WRITE (ITPOUT,6) IKAT, IIe (TITSEC(KsII), K=1,8) 
DO, .320..K, = she, Li 
TOTAL({K) = O. 

J = 0 

tee + 

IF (J GT. NREF(II)) GO TO 325 
L1 = KRTAB(II Jel) 


RVTB287C 
RVTB288C 
RVTB289C 
RVTB29CC 
RVTB291C 
RVTB292C 
RVTB293C 
RVTB294C 
RVTB295C 
RVTB296C 
RVTB297C 
RVTB298C 
RVTB299C 
RVTB300C 
RVTB301C 
RVTB302C 
RVTB 30 3C 
RVTB304C 
RVTB305C 
RVTB 3060 
RVTB307C 
RVTB308C 
RVTB309C 
RVTB 3100 
RVTB311C 
RVTB312C 
RVTB 2130 
RVTB314C 
RVTB3L5C 
RVTB316C 
RVTB 3170 
RV TB 31 8C 
RVTB319C 
RVTB3200 
RVTB321C 
RVTB322C 
RVTB323C 
RVTB 3240 
RVTB325C 
RVTB326C 
RVTB3227C 
RVTB 32 8C 
RVTB329C 
RVTB330C 
RVTB 2310 
RV1TB332C 
RVTB333C 
RVTB334C 
RVTB335C 
RVTB336C 
RVTB337C 
RVTB 3380 
RVTB339C 
RVTB340C 
RVTB341C 
RVTB342C 
RVTB343C 
RVTB344C 
RVTB 3450 
RVTB346C 
RVTB347C 
RVTB348C 
RVTB 3490 
RVTB3500 


cas 


3261 


327 


14.2 


IF 4L1 NE. CF GO 10, 322 

WRITE (ITPOUT,23) IIe J 

GO TO 321 

NN = NK — NKO # 1 

DO 324 K = ly, NN 

KK = K + NKO - l 

DIV = 100C. 

IF (ITAB ~EQ. 4) DIV = TAXPRS(KK) 

IF (DIV eLT. le) DIV = le 

X{K) = TAXDEL(KK,L1)/DIV 

AGGPT(K) = AGGPT(K) + X{K) 

iF LT PAR seie, 2). OO. tu 325 

L2 = KRTAB(II9Je2) 

L3 = KRTAB(II¢J,3) 

IF ({L2 eNE~e O) X(K) = X(K) + CORTAX(KK,L2)/DIV 
IF (L3 NE’ O) X(K) = X(K) + GIFTAX(KK,L3)/01V 
TOTAL(K) = TOTAL(K) + X{K) 
AGG(K) = AGGI(K) + X(K) 
CONTINUE 

WRITE (ITPOUT,17) [1I,y Jo (X(K)» K=1l,NN) 
GO TO 321 

WRITE (ITPOUT,18) (TOTAL(K), K=1,NN) 

GO TO 319 

DO 3261 K = ly» NN 

KK = K + NKO - 1 

DIV = 100C. 

IF (ITAB -EQ. 4) ODIV 
iF ADLTY slits lead DIV 
X(K) = REALTX(KK)/DIV 
AGG({K) = AGG(K) + X(K) 
WRITE (ITPOUT,26) (X(K)_ K=l»NN) 
WRITE (ITPOUT,19) (AGG(K), K=1,NN) 
DO 227 K = Ll» NN 


TAXPRS (KK) 
le 


TAXPRS (KK) 
le 


IF (ITAB .EQ- 4) DIV 
IF (DIV -LT. 1-) DIV 
X({K) = OLO(KK,3)/DIV 


OLD(KK,3)/DIV — AGGPT{K) 


RVTB351C 
RVTB 3520 
RVTB353C 
RVTB354C 
RVTB355C 
RVTB356C 
RVTB357C 
RVTB358C 
RVTB 3590 
RVTB360C 
RVTB361C 
RVTB362C 
RVTB 3630 
RVTB364C 
RVTB365C 
RVTB366C 
RVTB367C 
RVTB368C 
RVTB369C 
RVTB 3700 
RVTB371C 
RVTB372C 
RVTB 37 3C 
RVTB374C 
RVTB375C 
RVTB376C 
RVTB3770 
RVTB378C 
RVTB379C 
RVTB380C 
RVTB381C 
RVTB382C 
RVTB383C 
RVTB 32840 
RVTB385C 
RVTB386C 
RVTB387C 
RVTB 38 8C 


IF (ITAB eGEe 3) X(K) = X(K) + CORTAX(KK,1)/DIV + GIFTAX(KK,1)/DIVRVITB389C 


TOTAL(K) = AGG(K) + X{K) 

IF (X(K) »GT. O.) AGGI(K)=100. * AGG(K) / X(K) 
CONTINUE 

WRITE (ITPOUT,20) (X(K)», K=1,NN) 
WRITE (ITPOUT,21) (TOTAL{(K), K=1,NN) 
WRITE (ITPOQUT,;22) (AGG(K), K=Ly,NN) 
IF (NINCKL .LE-} NINC) GO TO 302 

NKOQ = NKCO + 10 

NINC = NINC + 10 

NK = NINCKL 

WRITE (1TPOUT,24) ITAB 

GO TO 317 


RVTB39CC 
RVTB391C 
RVTB292C 
RVTB393C 
RVTB394C 
RVTB395C 
RVTB3960 
RVTB397C 
RVTB398C 
RVTB399C 
RVTB400C 
RVTB401C 
RVTB402C 


1 FORMAT(1H1,30X947HPRORATICN OF EFFECTS GF REFORMS CN TAX REVENUES )RVTB 40 3C 


2 
3 
4 


5 


6 
7 


FORMAT (41X 27HFROM ALL CANADIAN RESIDENTS) 
FORMAT (44X 5SHFROM A6, 6H CLASS 13) 


FORMAT(LOHCTAXPAYERS AS, 28HAGGREGATED INTC FAMILY UNITS 


RVTB404C 
RVTB405C 
RVTB406C 


$ 1CHSET NUMBER F5.2, 20X I5SHRATE SCHEDULE 46 / 1X 26HALL BASE ChRVTB407C 


S$ANGES PRORATED 3A6, 19X 4HDATE 2X 2A6y 17Xy 
$ I 15HASSUMPTION SET A6 / 1X ) 


RVTB408C 
RVTB409C 


FORMAT (LHC 30X S8HTABLE 1. 3X 35HTGTAL CHANGES IN TAX BASE AND TAXRVTB41L0C 
$ES / 42X 22H( THOUSANDS OF DOLLARS)/ LHO 25X IGHPERSONAL INCOME TAXRVTB41L1C 
$ 1LéX ZO0HCORPORATE INCOME TAX 16X 4HGIFT / 4X 6HREFORM 16X 4HBASE RVIB412C 


$ 2X 3HTAX 16X 4HBASE 12X 3HTAX 17X BHTAX / 1X ) 


FORMAT (1HC Il, LHe. 2X LSHREFCRM CATEGORY I2, 


FORMAT (1X 7HREFORM( I2y LH, I2, 1H) F19.0»9 F16.0,% 


RVTB41 3C 
RV1TB4140 
RVTB415C 


MAANNANNAAHRAANM 


26 
27 


28 


AR 
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$..F20.0 ) RVTB4160 

8 FORMAT (1HC 14HTOTAL IN CLASS F18.0»9 Fl6.0, FI9.O0»y F16.0, F20.0) RVIB417C 
9 FORMAT (1X / 1HO I3HTCTAL CHANGES 1X F18.0, FI6.0, F190, F160, RVTB41L8C 
$..F 20.0) RVTB419C 
1G FORMAT(15H CURRENT TOTAL gy F18.O» Fl6.0,9 F190, Fl16-0, F20.0) RVTB420C 
11 FORMAT( 15H NEW TOTAL Fl8.0, Fl6.0, F19.0, F160, F20.0) RVIB421C 
12 FORMAT{16H PERCENT CHANGE FIBely FlGely, FlI9el, Fl6e1l, F20-1) RVTB422C 
13 FORMAT (1HC 30X SHTABLE I2, 1H. 3X 32HCHANGES IN TAXES BY INCOME CRVTB423C 
$LASS) RVTB424C 
FORMAT (42X SOH(PERSCNAL INCOME TAXES CNLY, THOUSANDS OF DOLLARS) )RVTB425C 
FORMAT (42X 4CH(ALL DIRECT TAXES, THOUSANCS CF DOLLARS) ) RVTB426C 
FORMAT(IHC 24X L4HINCOME CLASSES / 4X 6HREFORM I[16, 1L1OI9) RVTB427C 
FORMAT(1X THREFORM( I2, 1H, I2, 1H) 6X 11F9.0) RVTB428C 
FORMAT(15HOTOTAL IN CLASS 5X, L1F9.0) RVTB429C 
FORMAT(1X / LSHOTCTAL CHANGES 5X, 11F9.0) RVTB430C 
FORMAT (15H CURRENT TOTAL 5X, 1l1F9.0) RVTB431C 
FORMAT {15H NEW TCTAL 5X», L1F9.0) RVTB432C 
FORMAT (15H PERCENT CHANGE 6X, LLFS.1) RVTB433C 
FORMAT (1X V7HREFORM( I2, LH, I2, 1H) 16X LOHSUPPRESSED) RVTB434C 
FORMAT (1H1 SHTABLE I2, 10H CONTINUED / 1X) RVTB435C 
FORMAT (1L4HOUNDISTRIBUTED / 4X_y THAMOUNTS, 7X,» RVTB436C 

$ Fl5.-0,y Fl6e0, F190, FI6.0, F20.0) RVTIB437C 
FORMAT (1L4HOUNDISTRIBUTED / 4X, THAMOUNTSs 9X» 11F9.0) RVTB438C 
FORMAT (1HC, 30X,y SHTABLE, I2, lLHey 3X, GIHCHANGES IN DIRECT TAXESRV1TB439C 

$ FOR THE AVERAGE TAXPAYER IN EACH INCOME CLASS) RVTB440C 
FORMAT (1HC / 21LHCSPECIAL DEBUG OUTPUT) RVTB441C 

29 FORMAT (LHC, THAT RVTBy [5% 6H TAX =y FI5.39 GH OLDTAX =, F15.3, RVIB442C 
$ 7H ITAX =, I5) RVTB443C 
END RVTB444C 
SUBROUTINE FAMDEL (TAXSAV, BASTAX, NFDEL, ITAX) FMDL COCC 
FMDLCOLC 

SUBROUTINE TO COMPUTE EFFECTS OF AGGREGATING TAX UNITS FMDOL CO2C 
NUMBERED AS OF 21 OCT/66 FMDL CO3C 
GUMENTS FMDLCO4C 
TAXSAV = CHANGES IN TAXES RESULTING FROM EACH REFCRM AFFECTING FMDLCO5C 
TAX UNIT DEFINITION FMDLCO6C 

BASTAX = BASIC TAX WHICH WOULD BE PAID WITHOUT TAX UNIT DEFINITIONFMDLOO7C 
CHANGES FMDLCO8C 

NFDEL = NUMBER OF REFORMS AFFECTING UNIT DEFINITION FMDL CO9C 

I TAX = BASIS OF TAX CALCULATIONS (1 = CURRENT SCHEDULE, 2= FMDLC1OC 
PROPOSED FMDLOLIC 

FMDLC12C 

COMMON /PARAM/ ASS(200),5 ALLOW(50), ITUDEF, IDATA, IBASIS,s FMDL C1 3C 

$ IORDER(7), ISPRES(25,2),5 NSUP, IMINTP, ITPOUT, ITDATA FMDLC140 
DIMENSION TAXSAV(5) FMDLO15C 

DO 100 [=l,NFDEL FMDLO1L6C 
100 TAXSAV(I) = O. FMDLCL7C 
RETURN FMDLO1 8C 
END FMDLC19IC 
SUBROUTINE ACINC2 (IKLAS, CLASNM,y INDEX, NINDEX, CXNAMy, AINC, ACINCOOO 

$ CRED, XN» TIENTRY) AC INOOIC 
ACINCO2C 

SUBROUTINE TO ACCUMULATE TAXABLE INCOME TAXED AT EACH TAX RATE ACINO0030 
REVISED, 7 JULY 1966 AC INOO4C 


4h 


c NUMBERED AS OF 21 OCT/66 ACINCO5C 
C ARGUMENTS ACINCO6C 
c IKLAS = CLASSIFICATION OF TAX UNITS ANALYZED IN TABLE ACINOOTC 
c CLASNM = ALPHA DESCRIPTION OF CLASSIFICATION COMMCN TO TAX UNITS ACINCO8C 
G IN TABLE ACINGO9C 
c INDEX = CLASSIFICATION OF INCOME ENTERED ACINO100 
c NINDEX = NUMBER OF SUCH CLASSES IN TABLE ACINOL1C 
C CXNAM = ALPHA NAME OF INDEX CLASSIFICATION (A6) ACINC120 
C AINC = INCOME ENTERED (AVERAGE PER TAX UNIT) ACINC130 
c CRED = TAX CREDITS PER TAX UNIT ACINO14C 
C XN = NUMBER OF TAX UNITS ACINC15C 
C ENTRIES (DETERMINED BY IENTRY) ACINC160 
c 1 = INITIALIZATION ACINO170 
C 2 = ACCUMLLATION ACINO18C 
c 3 = TABLE PRINT QUT ACINO19C 
c ACINC200 
COMMON /FPAR/ MSTAT, IWWIFE, DEPCH, ODEP ACINC21C 
COMMON /PROGID/ RCASE, ACASE, IPSET, ITSET, SETNO, DATE(2), ITUDEFACINO22C 
COMMON /ACC4/ BASE(3920925), TCRED(20) ACINO230 
COMMON /RSCHED/ BRAKET(25)»y RATE(3,925)_, CREDS{10), NCLAS ACINO240 
DIMENSION ALPHA(2) AC INO25C 

DATA ALPHA / 3HNOT, 3HARE / ACINC26C 

c ACINC27C 
GO TO (10CCy 2000, 3000), IENTRY AC INO28C 

C AC INO29C 
(----------------------- ENTRY POINT ---------------------------------- ACINO30C 
C ENTRY TO INITIALIZE SUBROUTINE FOR NEW ACCUMULATICN ACINC31C 
1000 CONTINUE AC IN032C 
BRAKET(NCLAS*#1) = 1.0635 AC INC33C 

DO 104 J=1,yNINDEX ACINO34C 
TCRED(J) = 0. ACINC350 

DO 104 K = ly, 3 AC INC36C 

DO 104 I = ly NCLAS ACINC37C 

104 BASE(KyJyI) = 0. ACINC38C 
RETURN AC INC39C 

c ACINC40C 
(----------------------- ENTRY POINT ---------------------------------- ACINC41C 
c ACCUMULATION ENTRY ACINC42C 
2000 CONTINUE ACINO43C 
IF(MSTATeLT.OsOReMSTAT.GT.2) WRITE (6210) MSTAT ACINC44C 

IF (AINC.LE.CREDS(MSTAT+8)) RETURN ACINO45C 
BOTTOM = C. AC INC46C 

NN = NCLAS - 1 AC INC47C 

DO 102 J=1,NN ACINC48C 

TOP = BRAKET(J+1) ACINC49C 

IF (TOP.LE.CREDS(MSTAT+8)) GO TO 1011 AC INC50C 

IF (BOTTOMeLT.CREDS(MSTAT+8)) BOTTCM = CREDS(MSTAT+#8) ACINC51C 

IF (AINC - TOP) 100, 100% 101 ACINC52C 

100 BASE(MSTAT+#1, INDEX, J) =BASE (MSTAT+1, INDEX, J)+ (AINC-BOTTOM) ®XN AC INC53C 
IKLAS 2,4 ACINC54C 

GO TO 103 ACINO55C 

101 BASE(MSTAT+1, INDEX, J) =BASE (MSTAT+1,INDEX,J)+ (TOP -BOTTOM)*®XN ACINOS6C 
1011 BOTTOM = TOP AC INC57C 
1C2 CONTINUE ACINCS58C 
BASE (MSTAT#+1 9INDEXsNCLAS)= BASE(MSTAT+1lyINDEX»NCLAS) + ACINC59C 

$ (AINC-BCOTTOM)*XN ACINC6CC 
IKLAS = NCLAS ACINC61C 

103 TCRED( INDEX) = TCRED(INDEX) + CRED*XN ACINC62C 
RETURN ACINC63C 

c AC INO64C 
(-------~--------------- ENTRY POINT ---~------------------------------- AC INC65C 
6 ENTRY TO WRITE OUT TAX BASE ACINC66C 
3000 CONTINUE ACINO67C 
ITPGUT = & AC INC68C 

WRITE (ITPQUT,9) SETNO, RCASE, ACASE, DATE, ALPHA(ITUDEF) AC INC69C 


OGG © © GG © Gi GGG @ Gr GG 


106 


107 


108 
109 


2 
$ 
3 
$ 
4 
$ 
5 
€ 
7 
$ 
8 
$ 


$ 
$ 
1C 


ARG 


ARG 
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CALC SUPREFI? 3:4) 

WRITE (6,8) CLASNMy, IKLAS 

WRITE (653) CXNAM, (1,1=1,NINDEX) 
WRITE (6,92) 

MM=1] 

DO 107 J = 1, NCLAS 

TOTAL = 0 

KRAT = RATE (MM, 
DO 106 K=1,NINDEX 
TOTAL = TOTAL + BASE(MM,KyJ)/ 1000. 
BASE(MM,K»eJ)=BASE(MM,KeJ)/ 1000. 

IBRAC = BRAKET{J) 

WRITE(695) I BRAC sKRAT , (BASE (MMyKoJ) »K=1l sNINDEX) yTCTAL 
MM=MM+1 


J)*100. + .5 


IF (MM eEQ-2) WRITE (694) 
IF (MM eEQ.3) WRITE (6,7) 
IF (MM e-GT.3) GO TC 108 
GG TO 105 


DO 109 K=1l~,NINDEX 

TCRED(K) = TCRED(K)/1000. 

WRITE (6,€) (TCRED(K), K=1,NINDEX) 
RETURN 


FORMAT (1HC/21X 44H1. 
LHO ) 


FORMAT (1HC / 1X SHBOTTOM CFy 27X A6s14H CLASS NUMBERS / 


1X, THBRACKET, 4X y4HRATE» 3X9 LOIDs 6Xy SHTOTAL) 

FORMAT ( LHO / 21X 40H2. 
1hO ) 

FORMAT ( [@,y 18, 4X, 11F9.0) 

FORMAT ( LHO / 1X LLHTAX CREDITS» 8X, 

FORMAT (1LHCy /»y 21X, 24H3. 

FAMILIES WITH DEPENDANTS / 1HO ) 


11F9.0) 


FORMAT (LHC, 48HAMOCUNTS SUBJECT TC TAX AT EACH TAX RATE FOR TAX 


INCOME TAXED ON INDIVIDUAL RATE SCHEDULE / 


INCCME TAXED ON FAPILY RATE SCHEDULE / 


INCOME TAXED CN RATE238H SCHECULE FOR 


ACINC7OC 
ACINC71C 
ACINC7T2C 
ACINC73C 
ACINC74C 
AC INC75C 
ACINCT6C 
ACINCTIC 
ACINC78C 
ACINC79C 
ACINC80C 
ACINCB1C 
AC INO82C 
ACINC83C 
ACINO84C 
ACINC85C 
ACINC86C 
ACINC87C 
ACINC88C 
AC INC89C 
ACINC9OC 
ACINCII1C 
ACINOQ92C 
AC INC93C 
ACINC94C 
ACINC9SSC 
ACINOC96C 
ACINC9TC 
ACINC98C 
ACINC9IIC 
ACIN100C 
ACIN101C 
ACIN102C 
ACIN103C 


SHUNITS IN » A6és SHCLASS, I14/ LHOs5Xs22H(THOUSANDS OF COLLARS) )ACIN104C 
9 FORMAT(1LH1,7HSET NOegF5.292Xg14HRATE SCHECULE »9A692X%_14HASSUMPT IONACINI05C 


ACIN107C 
ACIN108C 
ACIN109€ 


SET»sA6e2X_,5HDATE 92A6y2Xe,LOHTAXPAYERS ,A3,29H AGGREGATED INTO FAMACINIO6C 
ILY UNITS//) 
FORMAT(16H MSTAT IN ACCINC I[12) 
ENDO 
SUBROUTINE INCID2 (KLAS, INC, NKLAS, NINCKL, CLSNM, 


SUBROUTINE TO ANALYZE INCIDENCE OF PRESENT AND PRCPOSED 


TAX SYSTEMS 

RENUMBERED FOR GITAN PRINTING 

UMENTS USED IN ACCUMULATION ENTRY 

KLAS = CROSS-CLASSIFICATION CLASS 

INC=INCOME CLASS 

UMENTS USED IN INITIALIZATION ENTRY 

NKLAS = NUMBER OF CROSS-CLASSIFICATION CLASSES 
NINCKL = NUMBER OF INCOME CLASSES 


ARGUMENTS USED IN INITIALIZATION AND QUTPUT ENTRIES 


ENT 


CLSNM = ALPHA NAME OF CROSS-CLASSIFICATION (A6) 
RY POINTS (DETERMINED BY IENTRY) 

l INITIALIZATION 

2 ACCUMULATE TOTALS 

3 PRINT SUMMARY TOTALS 


COMMON /PROGID/ RCASE, ACASE, IPSET, ITSET, SETNOsy DATE(2), 


INCDCOOC 
INCDCO1C 
INCDCO2C 
INCDCO3C 
INCDCO4C 
INCDCOSC 
INCDOCO6C 
INCDCO7C 
INCDCO8C 
INCDCO9C 
INCDCLOC 
INCDOLIC 
INCDC12C 
INCDO1 3C 
INCDCLAC 
INCDC15C 
INCDC1 60 
INCDOL7C 


ITUDEFINCDC18C 
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COMMON /ACC1/ ACCUM(26%20,%8) 
COMMON /RSCHED/ BRAKET(25)»5 RATE(3»9 25), CREDS(10), NCLAS 
COMMON /DATA/ KLASS(10)», SUMS(50), BASE(40), CRED(40), 
$ REFTAX(5), OLDPTX(5)», CORTAX(5)5 GIFTAX(5) 
COMMON /ADJUST/ DELTA(10)», OTHER(30), UNTAXD(20) 
COMMON /CLASFN/ NINKL(3), NXKLAS» CLXNAM, KLGIVNy, GIVNAM, 
$ INCKL(3), IXKLAS 
DIMENSION OUT(11)»SUM(8) »,ALPHA(2) 
DATA ALPHA/3HNOT, 3HARE/ 
DATA ONE /1LHI/, ZERO/1LHO/, BLANK /1H / 
C 
GO TO (10CCy, 2000, 3000), IENTRY 
C 
(----------------------- ENTRY POINT ------------------------------------ 
é ENTRY TO INITIALIZE SUBROUTINE FOR NEW ACCUMULATION 
1000 CONTINUE 
DO 100 I=1,NKLAS 
DO 100 J=1lyNINCKL 
DO 10C K=1,8 
100 ACCUM(I,J,K)=C 
RETURN 
C 
(----------------------- ENTRY POINT ------------------------------------ 
i ENTRY TO ACCUMULATE TOTALS 
2000 CONTINUE 
XN = SUMS(1) 
XMPTNS = BASE(1L) + BASE(2) + BASE(26) + BASE(29) + BASE(30) + 
$ BASE(33) 
DEDOLD = SUMS(7)¥*100. + SUMS(10) + SUMS(15) + SUMS(36) + 
$ SUMS(37) + SUMS(38) + SUMS(39) -— DELTA(2) + SUMS(5)¥*500. —- 
$ DELTA(4) 
DEONEW = DEDOLD — BASE(21) -— BASE(22) - BASE(23) - BASE(24) - 
$ BASE(25) 
TOTINC = REFTAX(1) + DEDNEW 
ACCUM(KLAS,INC»g1l) = ACCUM(KLAS,INC,i) + TCTINC 
ACCLM(KLAS,INC»2) = ACCUM(KLAS,INC»2) + OLDPTX(3) 
ACCUM(KLAS,INC»3) = ACCUM(KLAS,INC,3) + REFTAX(3) 
ACCUM(KLASy,INC,4) = ACCUM(KLAS,INC»4) + XN 
ACCUM(KLAS,INC,5) = ACCUM(KLAS»INC,5) + TCTINC — REFTAX(4) 
ACCUM(KLAS»,INC»6) = ACCUM(KLAS»,INC+6) + OLDPTX(3) + CORTAX(1) + 
$ GIFTAX(1) 
ACCUM(KLAS,INC»7) = ACCUM(KLAS,INC,7) + REFTAX(3) + REFTAX(4) + 
$ CORTAX(4) 
ACCUM(KLAS»INC»8) = ACCUM(KLAS,INC,8) + OLDPTX(1L) + XMPTNS + 
$ DEDOLD + BASE(3) 
RETURN 
c 
C----------------------- ENTRY POINT ------------------------------------ 
c ENTRY TO PRINT OUT SUMMARY TABLES 
300C CONTINUE 
WRITE (691) SETNO»y RCASE, ACASE, ( DATE( I)», I=1le2), 
l ALPHA{(ITUDEF) 
CALL SUPREF( 3 ) 
IF (KLGIVN .EQ. 0) WRITE (692) CLSNM, KLAS 
IF (KLGIVN .GT. 0 eANDe KLAS «GT. 0) WRITE (6,10) GIVNAMy, KLGIVN, 
SV NCLSNM;  KLAS 
IF (KLGIVN .GTe O «AND. KLAS -EQ. 0) WRITE (652) GIVNAM, KLGIVN 
WRITE (6,2) 
NINCPL=NINCKL41 
DO 200 J=1l,NINCPL 
DU 170 K=1;8 
SUM(K)=0 
IF (KLAS 
1 etGs 0  cAND.. //d' .EGs NIGEL) GO TO 130 
IF (KLAS 


INCDC19C 
INCDO20C 
INCDO21C 
INCDC22C 
INCD0230 
INCD0231 
INCDC2 32 
INCDO24C 
INCD025C 
INCD026C 
INCDC27C 
INCDO28C 
INCD029C 
INCD0300 
INCDC31C 
INCDO32C 
INCDC33C 
INCD0340 
INCD035C 
INCD036C 
INCDC37C 
INCDO38C 
INCDO39C 
INCDC40C 
INCDC410 
INCD042¢ 
INCD043C 
INCDC44C 
INCDC45C 
INCDC466 
INCD047C 
INCDC480 
INCDC490 
INCDC50C 
INCDC51C 
INCDC52C 
INCDC53C 
INCDC54C 
INCDC55C 
INCDC56C 
INCDO57C 
INCDC58C 
INCDC59C 
INCDG60C 
INCDC61C 
INCDC62C 
INCDC63C 
INCDC64C 
INCDC65C 
INCDC66C 
INCDC67C 
INCD068C 
INCDC69C 
INCD.O7.0C 
INCDO7O1 
INCDC702 
INCDO702 
INCDC71C 
INCDC72C 
INCDC73C 
INCDC740 
INCDO75C 
INCDC76C 
INCDC77C 
INCDC78C 


11C 
| Be) 


120 
1 de! 


13¢ 


| Oe be) 
170 


ge 
180 
185 


190 
20C 
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1 eEQ. 0) GO TO 120 
IF (J -EQ. NINCPL) GO TO 110 
SUM(K )=ACCUM(KLAS»J9K) 

GO TO 170 

DO 115 N=1l,NINCKL 
SUM(K)=SUM(K)+ACCUM(KLAS,N,K) 
GO TO 170 

DO 125 M=1,NKLAS 

SUM (K)=SUM(K)+ACCUM(M,J,K) 

GO TO 170 

DO 135 M=1ly»yNKLAS 

DC 135 N=ly»yNINCKL 


SUM(K)=SUM(K)+ACCUM(M,N,K) 
CONTINUE 

X=SUM(4) 

NUM =X * Oo) 

TIF (SUM(1).LE. .0) GO TO 175 
pet Aslee, «0) GO TOs ris 


OUT({1)=SUM(1)/X 
OUT(2)=SUM(5)/X 
OUT(3)=SUM(2)/X 
OUT(4)=SUM(3)/X 
OUT(5)=SUM(6)/X 
OUT(6)=SUM(7)/X 
OUT(7)=SUM(6)/SUM(1) 
OUT(8)=SUM(7)/SUM(1) 

OUT (9) =SUM(2)/SUM(5) 
OUT(1C)=SUM(3)/SUM(5) 

OUT(11) = (SUM(8)/SUM(1))¥*100. 
GO TO 185 

DO 18C K=1,11 

OLT(K)=0. 
IF (J EQ. 
WRITE (6,4) 
GO TO 200 
WRITE (695) 
CONTINUE 
RETURN 


NINCPL) GC TO 190 
J»oNUM,(CUT(K) »K=1,11) 


NUM, (CUT(K) »K=1,11) 


INCDC79C 
INCOC8O0C 
INCDCB1C 
INCDC82C 
INCDC83C 
INCDC84C 
INCODC85C 
INCDC86C 
INCDC87C 
INCDO880 
INCDO89C 
INCDC9CC 
INCDC9I1C 
INCDC92C 
INCDC93C 
INCDC94C 
INCDO95C 
INCDO96C 
INCDC9TC 
INCDC98C 
INCDO99C 
INCD100C 
INCD1O1C 
INCD1020 
INCD103¢ 
INCD104C 
INCD105C 
INCD 1060 
INCD1O7C 
INCD108C 
INCD1090 
INCD110C 
INCD1i1C 
INCD112C 
INCD113¢C 
INCD114C 
INCD115C 
INCD116C 
INCD117C 


L FORMAT( 1H], 7HSET NOo ep F502 92Xys14HRATE SCHEDULE »A652X_,14HASSUMPTIONINCD11 8C 


4 


3 


ouan WS 


$ SET»A6,2X,5HDATE 42A6y2X,1LOHTAXPAYERS 


9A3,29H AGGREGATED INTO FAMINCD119C 


$ILY UNITS//) INCD120C 
FORMAT (1Xs62HCOMPARATIVE INCIDENCE OF CURRENT AND PROPOSED TAX SYINCD121C 
$STEMS FOR sA6y 6H CLASSsI3//) INCD122C 
SoORMAl (79% .37H-.- - > = AVERAGE TAR RATES. fee ry a = 9 INCD123C 
$ 3X, 7THPERCENT / INCD124C 
$20X, L4HAVERAGE INCOME,2Xe4X,16HAVERAGE PERSONAL, INCD125C 
$4X_, 1SHAVERAGE FOR ALL o1lXe4X,1L6HALL DIRECT TAXES, INCD126C 
$1X,19HPERSONAL INC. TAXES s2X,9HOF INCOME/1Xe14HINCOME NUMBER,1X», INCD1270 
$5X—s 5HCOMP.92Xe8HMCDIFIED, 5X,L1S5HEINCOME TAX PAID, INCD128C 
$3X,17HDIRECT TAXES PAID» 5X,15HOVER COMP. BASE» INCD129C 
$2X,18HOVER MODIFIED BASE»s2X,9HCURRENTLY/1X,15HCLASS IN CLASS,» INCD 13.00 
$6X,4HDEF. 9 1X, IHCCMP.DEF., 4(20H CURRENT PROPOSED), INCD131C 
$2X_, LOHASSESSABLE//) INCD132C 
FORMAT(1Xs1494XrI7, 3 2F10.0) »2Fl0.3, 2F10.3»y F10.1) INCD133C 
FORMAT (//2X,3HALL 4X51 743 ( 2F10.0) »2Fl0.3, 2F10.3»5 F10.1) INCD134C 
FORMAT(1H1) INCD135C 
FORMAT(1HC) INCD136C 
FORMAT(1H ) INCD137C 
FORMAT (1LX,62HCOMPARATIVE INCIDENCE OF CURRENT ANC PROPOSED TAX SYINCD138C 
$STEMS FOR »yA6y 6H CLASSyI3_y 5H AND »y A6by 6H CLASS, 13//) INCD 1390 
END INCD140C 
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SUBROUTINE ACCDEL (KLAS,» INC, OLDTAX, REFTAX», XNy NKLAS, NINCKL, ACDLOOOC 


$ CLSNM, IENTRY) ACDLCOIC 

C ACDLCO20 
c SUBROUTINE TO CLASSIFY TAX UNITS BY IMPORTANCE OF TAX CHANGES ACDL 0030 
c NUMBERED AS OF 21 OCT/66 ACDL CO4C 
C ARGUMENTS USED IN ACCUMULATION ENTRY ACDLCO5C 
ic KLAS = CROSS-CLASSIFICATION CLASS ACDLCO6C 
c INC = INCOME CLASS ACOLCOT70 
C OLDTAX»REFTAX = TAX PAYMENTS UNDER CURRENT AND PROPOSED TAX SYSTEMACDLOO8C 
c XN = NUMBER OF TAX PAYERS ENTERED ACDLCO9C 
C ARGUMENTS USED IN INITIALIZATION AND OUTPUT ENTRIES ACDL 0100 
c NKLAS = NUMBER OF CRCSS-CLASSIFICATION CLASSES ACDLCLIC 
« NINCKL = NUMBER OF INCOME CLASSES ACDLO12C 
C ARGUMENTS USED IN OUTPUT ENTRY ACDL 0130 
c CLSNM = ALPHA DESCRIPTION OF CROSS-CLASSIFICATION (A6) ACDLC14C 
C ENTRY POINTS (DETERMINED BY IENTRY) ACOLG15C 
c 1 = INITIALIZATION ACDLCL6C 
C 2 = ACCUMULATE TOTALS ACDL 170 
C 3 = PRINT SUMMARY TOTALS ACDLO1 8C 
C ACDLC19C 
COMMON /PROGID/ RCASE, ACASE, IPSET, ITSETy SETNOy DATE(2)y ITUDEFACDLC200 
COMMON /ACC2/ ICUM(26420912) ACDLC21C 
COMMON /RSCHED/ BRAKET(25)_ RATE(3, 25), CREDS(10), NCLAS ACDLO22C 
COMMON /CLASFN/ NINKL(3)_9 NXKLAS, CLXNAM, KLGIVNy GIVNAMy ACDLO221 

$ INCKL(3), IXKLAS ACDL C222 
DIMENSION ALPHA(2), ISUM(12) ACDL 0230 
DIMENSION B2(10) ACDLC24C 

DATA B22 100925090759 285909591 00591 0159162591050916E35 / ACDL 0250 

DATA ALPHA/3HNOT» 3HARE/ ACODLC26C 

C ACDLO27C 
GO TO (10CCy, 2000, 3000), IENTRY ACDL C28C 

C | ACDL C29C 
(----------------------- ENTRY POINT ------------------------------------ ACDL 0300 
C ENTRY TO INITIALIZE SUBROUTINE FOR NEW ACCUMULATICN ACDLC3iC 
1000 CONTINUE ACDLC32C 
TOL = 5.0E-8 ACDOL C321 

DO 120 I=1,NKLAS ACDL 63 3C 

DO 12C J=1,NINCKL ACDL C34C 

DO 120 K=1,12 ACDLO35C 

120 ICUM(I,J,K) =0 ACOL036C 
RETURN ACDLO37C 

c ACDLC38C 
C ACDL C39 
(----------------------- ENTRY POINT ------------------------------------ ACDL C400 
C ENTRY TO ACCUMULATE TOTALS ACDLC41C 
2000 CONTINUE ACDLC42C 
IF (OLDTAX «LT. 0.0) CLOTAX=0 ACDLC43C 

IF (REFTAX «LT. 0.0) 1=2 ACDL C44C 

IF (OLDTAX .GT. TCL .AND. REFTAX «GT. TOL) GC TO 100 ACDLC45C 

IF (OLDTAX .GT. 0. .AND. ABS(REFTAX) «LE. TOL) I = 1 ACDL 046C 

IF (ABS(OLDTAX) «LE. TOL .AND. REFTAX .GT. 0.) I = 12 ACDL047C 

IF (ABS(OLOTAX) .LE. TOL .AND. ABS(REFTAX) «LE. TCL) I = 7 ACDLC48C 

GO TO 115 ACDL0490 

100 A=REFTAX/OLDTAX ACDLC50C 
DO 110 I=1,9 ACDLC51C 

IF( AsGE. B2(1).AND. AwLT.B2(1+1)) GO TO 114 ACDLC52C 

110 CONTINUE ACDLC53C 
114 1=142 ACDLC54C 
115 K=I ACDLO55C 
NXN=XN+0.49 ACDLC56C 
ICUM(KLAS»INCK) = ICUM(KLAS,INC»K)+NXN ACDLO57C 


RETURN , ACDLC58C 


C ACDLC59C 
ae a a a mena mn BN aN ee en eo ee ACDL C60C 
C ENTRY TO PRINT OUT SUMMARY TABLES ACDL 0610 
3000 CONTINUE ACDL062C 
I = KLAS ACDL C6 3C 

WRITE (651) SETNOsRCASE yACASE, DATE, AL PHA( ITUDEF ) ACDL 0640 

GAalAy SUPREFL 3..) ACDL065C 

IF (KLGIVN .-EQe O) WRITE (692) CLSNM, KLAS ACDL C66C 

IF (KLGIVN .GT. O -AND. KLAS «GT. 0) WRITE (6,10) GIVNAM, KLGIVN,ACDLC661 

$ CLSNM» KLAS ACOL C662 

IF (KLGIVN .GTe O »-AND. KLAS ~EQ. 0) WRITE (642) GIVNAM, KLGIVYN ACDL0663 

WRITE (6,3) ACDL O67C 
NINCPL=NINCKL41 ACDL 068C 

DO 20C J=1l,NINCPL ACDL 0690 

DO 170 K=1,12 ACDLCT70C 
ISUM(K )=0 ACOLC710 

IF (I -EQ. QO «AND. J -EQs NINCPL) GO TO 150 ACDLO720 

Im Cl «EQ. 0) GO TO 140 ACDLC73C 

IF (J -EQ.e. NINCPL) GO TQ 130 ACDLC74C 
ISUM(K )=ICUM(I,J,9K) ACDLO7 50 

GC TO 170 ACOLO76C 

130 DO 135 M=1l,NINCKL ACDLC7I7C 
135 ITSUM(K)=ISUM(K)+ICUM(I,M,K) ACOL C780 
GO TO 170 ACOLC79C 

14C DO 145 N=1,NKLAS ACDLC8OC 
145 ITSUM(K)=ISUM(K)+ICUM(N,J_K) ACDLCB1C 
GO 10 170 ACDL C82C 

150 DO 155 N=1l,NKLAS ACOL 083C 
DO 155 M=1,NINCKL ACDLC84C 

155 ISUM(K )=ISUM(K)+ICUM(N,M,K) ACDLC85C 
170 CONTINUE ACDLC86C 
IF (J eEQ- NINCPL) GO TO 180 ACDLC87C 

WRITE (625) Jel ISUM(K),K=1,12) ACDLC88C 

GO TO 2C0 ACDLC89C 

180 WRITE (654) (ISUM(K),K=1,12) ACDLC9IOC 
2CO0 CONTINUE ACOLC9IIC 
RETURN ACDLC92C 


GUC Yancy Ga) 


1 FORMAT(1H1,7HSET NO oF 522 92Xe14HRATE SCHEDULE 9A592X_914HASSUMPT IONACDL 0930 
$ SET,A6,2X_,5HDATE »2A6g2Xy,lLOHTAXPAYERS »A3_e29H AGGREGATED INTO FAMACDLO94C 
$ILY UNITS//) ACDLC95C 

2 FORMAT (1X,29HDISTRIBUTION OF TAX UNITS IN ,A6y 6H CLASSeI32 1Xy ACOLCIEC 
$66HAND IN EACH INCCME CLASS BY CHANGE IN TAXES RESULTING FROM REFCACDLC97TC 


2RMS//) ACDLO98C 
3 FORMAT(12CH NUMBER NUMBERS ees ep se NUMBERS ACDLC99IC 
$WITH GIVEN PERCENTAGE CHANGE IN TAXES - - - - = NUMBER ACDL 1000 
eas, 38H INCOME TAKEN OFF OBTAINING LESS THAN 61X» ACOL101C 
$LEHMORE THAN ADDED TO / 120H CLASS TAX ROLL REFUNDS ACDL102C 
ermal reD0s/-25. —29/—-159) Gals/-5 -5/+5 +5/+15 15/25 25/50 ACDL 103C 
$ 50 TAX ROLL » //) ACDL 104C 
4 FORMAT (//1X,5HTOTAL»1Xe1219 ) ACDL 105C 
5 FORMAT( 1X,16, 1219) ACDOL 106C 
1C FORMAT (1X,62HCOMPARATIVE INCIOENCE OF CURRENT ANC PROPOSED TAX SYACOL107C 
$STEMS FOR »A6y 6H CLASS,13_, 5H AND » Aby 6H CLASS, I3//) ACDL108C 
END ACDL109C 
SUBROUTINE BASCOM (INC, NINC, TENTRY) BSCMCOOC 
BSCMCO1C 

SUBROUTINE TO CALCULATE OLD AND NEW TAX BASES BY CLD METHOD OF BSCMCO2C 
TAXATION AND BY INCOME SOURCE COMPONENT BSCMCO3C 
NUMBERED AS OF 21 OCT/66 BSCMCO4C 
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AANMNNAANA 


ARGUMENTS 
INC = 
NINC = 


INCCME CLASS 
NUMBER OF INCOME CLASSES 


150 


$ 


Ll, INITIALIZE TABLES. IF = 2, 
PREPARATION OF DATA FOR PRINTING 


IENTRY = ls2eoe IF = 
TABLES. IF = 3% 


DOUBLE PRECISION BASACC, 

COMMON /ACC6/ BASACC(21,22592)>% 
DEDACC(21,11y2) 

DOUBLE PRECISION RMACC 

COMMON /ACCT/ RMACC (2152092) 

DIMENSION RATMAR(20,2) 

DIMENSION BADD(2242)5 TAX(2492)% TAXC(6), 

COMMON /DATA/ KLAS(10), SUM(50),5 BASE(40), 
REFTAX(5), OLOPTX(5), CORTAX(5), GIFTAX(5) 

COMMON /ADJUST/ DELTA(10), OTHER(30), UNTAXD(20) 

COMMON /SWITCH/ ISW(25) 


TAXACC, CURACC, CEDACC 


TAXACC(21,24,2), CURACC(21,5), 


DED(1192)> 
CRED(40), 


TCRED(2) 


GO TO (10CCy 2000, 3000), IENTRY 


INITIALIZATION ENTRY 
CONTINUE 
NINCPL = 
DO 20 I 
po TSS 
DO 15 K 
TAXACC(I,J,K) = O-/ 

re CI 6G. 22) 60 TC ES 
BASACC(I,J,K) = O. 
IF (J -GT-e- 20) GC 
RMACC(I,J,K) = O- 
Pits) 2Gle (PP GO IB. 15 
DEDACC(I,JeK) = O/ 
CCNTINUE 

0C 16 J = ly, 5 
CURACC(I,J) = O- 
CONTINUE 

CONTINUE 

RETURN 


NINC + 1 
Ll, NINCPL 


1 | 
— 
< 
in) 
+ 


TC 15 


~----------------------- ENTRY POINT----------------------------- 


ENTRY TO ACCUMULATE TAX BASE DATA 
CONTINUE 


CALCULATE BASE COMPONENTS 


XN = SUM(1) 
BADD( 1,1) 
BADC (1,2) 
BADCD(2,1) 
BADD (2,2) 
BADO (3,1) 
BADC (3,2) 
BADD (4,1) 
BADD (4,2) 
BADD(5,1) 
BADD( 5,2) 
BADD (6,1) 
BADD (6,2) 
IF (1SW(4) 
IF (1ISwW(4) 
BADD( 7,1) 
BADD (7,2) 
BADO( 8,1) 


SUM(16) 
SUM(16) 
-SUM(12) 
-SUM(12) 
SUM(18) 
SUM(18) 
SUM(19) 
SUM(19) 
BASE(15) 
0. 
SUM(20) 
SUM(20) 
eEQ. 0) ADD 
eGT.- QO) ADD OTHER(11) + OCTHER(12) 
SUM(25) + ADD + BASE(34) 
SUM(25) - BASE(6) 
BASE(3) + BASE(4) 


uu ve ob WW Wow 


BASE(35) 


- ADD 


ACCUMULATE 


+ BASE(13) + BASE(14) + BASE(16) + BASE(17) 


BSCMCOS5C 
BSCMO06C 
BSCMCO7C 
BSCMCO8C 
BSCMCO9C 
BSCMC1OC 
BSCMC1O1 
BSCMC1LIC 
BSCMC12C 
BSCMC121 
BSCMO1 3C 
BSCMC14C 
BSCMC15C 
BSCMC16C 
BSCMC1IC 
BSCMC18C 
BSCMC1IC 
BSCMC20C 
BSCMC21C 
BSCMC22C 
BSCMC623C 
BSCMC24C 
BSCMC25C 
BSCMC26C 
BSCMC27C 
BSCMC28C 
BSCMC29C 
BSCMC30C 
BSCMC31C 
BSCMC32C 
BSCM033C 
BSCMC34C 
BSCMC35C 
BSCMC36C 
BSCMO037C 
BSCMC38C 
BSCMC39C 
BSCMC400 
BSCMC41C 
BSCMC42C 
BSCMC430 
BSCM044C 
BSCMC45C 
BSCMC46C 
BSCMC47C 
BSCMC48C 
BSCM049C 
BSCM0500 
BSCMC51C 
BSCM052C 
BSCMC53C 
BSCMC54C 
BSCMC55C 
BSCMC56C 
BSCMC57C 
BSCMC58C 
BSCMC59C 
BSCMC60C 
BSCMC61C 
BSCM062C 
BSCM063C 
BSCMC64C 
BSCMC65C 
BSCMC66C 
BSCMC67C 


Qi: @ 


10c 


101 


102 


202 
203 
103 
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BADD(8,2) = BASE(3) —- ADD BSCMC68C 
BADD(9,1) = BASE(5) BSCM0690 
BADD(9,2) = O- BSCMC70C 
BADD(1C0y1) = SUM(17) + BASE(8) + BASE(9) - SUM(24) + BASE(7) BSCMC71C 
BADD(10e2) = SUM(17) - SUM{(24) BSCMC72C 
BADD(11,1) = SUM(21) + OTHER(1) BSCMG73C 
BADD(11,2) = SUM(21) BSCMC74C 
BADD(12,1) = SUM(26)+ SUM(27)+ BASE(1LO)+BASE( 11) +BASE( 12) BSCMC75C 
BADD(12e2) = SUM(26) + SUM(27) BSCMC76C 
BADD(1321) = BASE{(32) - OTHER(1) BSCMO77C 
BADD(13,2) = QO- BSCMC78C 
BADD(14,91) = SUM(28) BSCMC79C 
BADD(14,2) = SUM(28) BSCMC8O0C 
BADD(15s1) = —SUM(29)+ BASE(6) BSCMC81C 
BADD(15,2) = —SUM(29) + BASE(6) BSCMC82C 
BADO(1651) = BASE(18) BSCMC83C 
GG = Qe. BSCMC84C 
IF (ABS(GIFTAX(3)).GT.~.0000000001) GG = —-GIFTAX(1)/GIFTAX(3) BSCMOC85C 
BADD(1652) = GG* BASE(18) BSCMC86C 
BADD(17,1) = SUM(32) + BASE(19)+ BASE(20) + DELTA(3) BSCMC87C 
BADO(1722) = SUM(32) + DELTA(3) BSCMC88C 
BADD(18,1) = BASE(28) BSCMC89C 
BADD(18e2) = O. BSCMC900 
BADD(19,1) = SUM{33) BSCMO0910 
BADC(192) = SUM(33) BSCMC92C 
BADO1 = O. BSCMC93C 
BADD2 = OQ. BSCMC94C 
BAS = 0. BSCMC95C 
DO 100 I =1,19 BSCMC96C 
BADD1 = BADD1 + BADD(I,1) BSCMC9TC 
IF (I -EQe- 8 -OR- IT -EQe- 16) GO TC 100 BSCMC098C 
BADD2 = BADD2 + BADD(T,2) BSCMC99C 
CONTINUE BSCM100C 
DO 101 I = 2ls 25 BSCM101C 
BAS = BAS + BASE(T) BSCM102C 
DEOC = SUM(7)*100-. + SUM(10) + SUM(15) + SUM(36) + SUM(37) + BSCM103C 
$ SUM(38) + SUM(39) - DELTA(1L) -— DELTA(2) + SUM(5)*500. —- DELTA(4)BSCM104C 
BADD(21,1) = DEDC - BAS BSCM105C 
BADD(21,2) = ODEDC BSCM106C 
XMPTNS = BASE(1) + BASE(2) + BASE(26)- + BASE(29) + BASE(30) + BSCM107C 
$BASE(33) BSCM1LO8C 
BADD(22,1) = O.~ BSCM109C 
BAOD(22,2) = XMPTNS BSCM1100 
BADD(20,1) = REFTAX(1) - BADDL + BADD{(2191) BSCM111C 
BADC (2092) = OLDPTX(1L) + XMPTNS — BADD2 + BADD(21,2) BSCM112C 
BSCM 11 3C 

CALCULATE TAX, TAXC ELEMENTS BSCM114C 
BSCM115C 

OLDTOT = C. BSCM116C 
DO 102 K = ly 20 BSCM117C 
TAX(Ky2) = QO. BSCM118C 
IF(KeEQ.8 «ORe K eEQ- 16 ) GO TOC 102 BSCM119C 
TAX(Ky2) = BADD(K 2) BSCM120C 
OLDTOT = GLDTOT + TAX(Ks2) BSCM121C 
CONTINUE BSCM122C 
IF (OLDTOT.GT.~.00C0000001.0R-OLDTOT.LT.~—.0000000001) GO TO 202 BSCM 12 3C 
AVRAT=C. BSCM124C 
GO TO 203 BSCM125C 
AVRAT = (CLOPTX(3) + OLDPTX(2))/0LOTOT BSCM126C 
DO 103 K = ly» 20 BSCM127C 
TAX(Ky2) = AVRAT*TAX(K,2) BSCM128C 
TAX(7¢2) = TAX(7e2) — SUM{(30) BSCM129C 
TAX(1492) = TAX(14,2) -— SUM(31) BSCM130C 
TAXC(2) = OLDPTX(3) — TAX(7s2) BSCM131C 


aan 


aoe 


204 


205 


114 


itp 


TAXC(3) = CORTAX(1) 

TAXC(4) = TAX(7e2) + GIFTAX(1) 

TAXC(5) = CLOPTX(3) + CORTAX(1) + GIFTAX(1) 
TAXC(1) = TAXC(5) 


IF (SUM(25)+BASE(3).GT..-0000000001.O0R.~SUM(25 )+BASE(3).LT.~ 
$~.0COQC000CC1) GO TO 204 


TAX(8,2)=C. 


GO 10 205 
TAX(792) = TAX(7,2) + CORTAX(1L)*(SUM(25)/ (SUM(25)+BASE(3))) 
TAX(892) = CORTAX(1)*(BASE(3)/(SUM(25)+ BASE(3))) 


TAX(1652) = GIFTAX(1) 
TOTNEW = C. 

00 110 K = ly, 20 

TOTNEW = TOTNEW + BADD(K ,1) 


IF (TOTNEW.GT..0000000001.0R.~TOTNEW.LT.-.0000000001) GO 


AVRAT=0. 
GO 10 207 


AVRAT = (REFTAX(3)4REFTAX(4)+# SUM(31)4 CRED(3))/ TCTNEW 


DO 111 K =ly 20 
TAX(Ke1) = AVRAT*BADD(K,1) 
TAX(2e1) = TAX(291) - CRED(3) 


TAX(14,1) = TAX(14,1) -— SUM(31) 
TAX(21,2) = OLDPTX(3) 

TAX(22,2) = CORTAX(1) 

TAX(2352) = GIFTAX(1) 

TAX(24,2) = XN*®CURTAX(OLDPTX(1)/XNy O./) 
TAX(21,1) = REFTAX(3) 

TAX(2291) = REFTAX(4) 

TAX(23,1) = QO. 

TCRED(1) = O. 

TCRED(2) = C. 

TAX(2451) = XN*PROTAX(REFTAX(1L)/XN»y TCRED, O) 


COMPUTE DEDUCTION DETAIL 


DED( 1,2) = SUM(36) 

DED(2,2) = SUM(37) -— DELTA(2) 

DED(3,2) = SUM(10) 

DED(492) = SUM(1L5) - DELTA(1) 

DED(5,2) = SUM(7)*100. 

DED(6,2) = SUM(38) 

DED(7,2) = SUM{39) + SUM(5)*500. - DELTA(4) 
DED( 8,2) = 0. 

DED(9,2) = SUM(30) 

DED(1C,2) = C. 

DED(11,2) = SUM(31) 

DO 114 K = l, ll 

DED(K,1) = DED(K,2) 

DED(3,1) = DED(3,1) - BASE(22) 

DED(4,1) = DED(4,1) —- BASE(23) 

DED(5,1) = DED(5,1) -— BASE(24) 

DED(7,1) = DED(7e1) - (BASE(21) + BASE(25)) 
DED(8,1) = CRED(1) + CRED(7) + CRED(5) + CRED(6) 
DED(9,1) = QO. 

DED(1C,1) = REFTAX(4) 

DED( 11,1) = DED(11,1) + CRED(4) + CRED(3) 


COMPUTE MARGINAL RATES 


CURMAR = RMARG (OLDPTX(1)/XNy 1) 

IF (OLDPTX(3) -LE.~ O-) CURMAR = OQ. 

PROMAR = RMARG (REFTAX(1)/XNy 2) 

IF (REFTAX(3) + REFTAX(4) ~LE~ 0.) PROMAR = O./ 
DON Km =) 1920 

RATMAR(K,1) = PROCMAR¥BADD(Ke1) 


BSCM132C 
BSCM133C 
BSCM134C 
BSCM135C 
BSCM136C 
BSCM137C 
BSCM138C 
BSCM139C 
BSCM140C 
BSCM141C 
BSCM142C 
BSCM143C 
BSCM144C 
BSCM145C 
BSCM146C 
BSCM147C 
BSCM148C 
BSCM149C 
BSCM150C 
BSCM151C 
BSCM152C 
BSCM153C 
BSCM154C 
BSCM155C 
BSCM 156C 
BSCM157C 
BSCM158C 
BSCM159C 
BSCM160C 
BSCM161C 
BSCM162C 
BSCM163C 
BSCM164C 
BSCM165C 
BSCM166C 
BSCM167C 
BSCM168C 
BSCM169C 
BSCM170C 
BSCM171C 
BSCM172C 
BSCM173C 
BSCM174C 
BSCM175C 
BSCM176C 
BSCM177C 
BSCM178C 
BSCM179C 
BSCM18CC 
BSCM181C 
BSCM182C 
BSCM18 3C 
BSCM184C 
BSCM185C 
BSCM186C 
BSCM187C 
BSCM188C 
BSCM189C 
BSCM190C 
BSCM191C 
BSCM192C 
BSCM193C 
BSCM194C 
BSCM195C 
BSCM196C 


117 CONTINUE 
DIVCR = SUM{(30) 
IF (DIVCR .GT. 0-2*BADD(7,2)) ODIVCR = 0.2*BACDD(T7,2) 
IF (DIVCR «GT. RATMAR(7,2)) DIVCR = RATMAR(7,2) 
FORCR = SUM(31) 
IF (FORCR «GT. RATMAR(14,2)) FORCR = RATMAR(14,2) 
RATMAR( 7,2) = RATMAR( 7,2) -— DIVCR 
RATMAR(1492) = RATMAR(14,2) -— FORCR 
IF (SUM(25)4+BASE(3) .GT. O0-) GO TC 118 
RATMAR(8,2) = QO. 
GO To 119 
118 RATMAR( 792) = RATMAR( 792) + 0-50*SUM(25) 
RATMAR( 8,2) = BASE(3)*0.50 
119 RATMAR(16,2) = GIFTAX(1) 
WMCRED = C. 
IF (REFTAX(3) + REFTAX(4) «GT. O-) WMCRED = CRED(3) 
IF (WMCRED «GT. RATMAR(1,1)) WMCRED = RATMAR(1,1) 
RATMAR( 1,1) = RATMAR(1,1) — WMCRED 
IF (FORCR «GT. RATMAR(1491)) FORCR = RATMAR(14,1) 
RATMAR(14,1) = RATMAR(14,1) -— FORCR 
IF (ISW(9) .EQ. 0) GO TO 120 
C 
C ADJUST FOR UNTAXED INCOME 
C 
BADC(7,1) = BADD(7,1) - BASE(34) 
BADD(&,1) = BADD(8,1) + BASE(34) + UNTAXD(L) + UNTAXO(2) 
$ + UNTAXD(3) + UNTAXD(4) + UNTAXD(5) 
BADC(9,1) = BADD(9,1) + UNTAXD(6) 
BADD(10,1) = BADD(10e1) + UNTAXD(7) + UNTAXD(8) + UNTAXD(9) 
BAOD( 11,1) = BADD(11,.1) + UNTAXD(10) 
BADD(13,1) = BADD(13,1) + UNTAXD(11) 
DO 1191 K = ly 20 
1191 BADO(K,2) = BADD(Kel) 
12C CONTINUE 
C 
C ENTER DATA IN TABLES 
C 
DO 115 K = ly» 2 
DO 115 J = ly 24 
TAXACC( INC, J9K) = TAXACCUINC es JeK) + TAX(JSoK) 
IF (J .GT. 22) GO TC 115 
BASACC(INC,JeK) = BASACC(INC,JeK) + BADD(J,K) 
IF (J -GT. 20) GC TO 115 
RMACC(INCsJeK) = RMACC(INCsJeK) + RATMAR( JeK) 
IF (J .GT. 11) GO TO 115 
DEDACC(INC,J,K) = DEDACC(INC,J,K) + DED(J_K) 
115 CONTINUE 
DG 116 J = ly 5 
CURACC(INC,J) = CURACCCINC,J) + TAXC(J) 
116 CONTINUE 
RETURN 
C 
Gn a no nn eee ENVRY SPOINT <3 m = ceca ea a= 
C ENTRY TO PREPARE DATA FOR CUTPUT 
C 
300C CONTINUE 
N = NINCPL 


153 


RATMAR(K,2) = CURMAR*BADD(K 2) 


DO 122 INK = ls NINC 

DO 121 K = ly» 2 

DO 121 J = ly 24 

X = TAXACC(INK,J,K)/1000. 
TAXACCUINKeJsK) = X 

TAXACC(Ne J eK) = TAXACC(NegJeK) + X 


BSCM197C 
BSCM198C 
BSCM199C 
BSCM20CC 
BSCM201C 
BSCM202C 
BSCM203C 
BSCM204C 
BSCM205C 
BSCM206C 
BSCM207C 
BSCM208C 
BSCM209C 
BSCM210C 
BSCM211C 
BSCM212C 
BSCM 21 3C 
BSCM214C 
BSCM215C 
BSCM216C 
BSCM217C 
BSCM216C 
BSCM219C 
BSCM220C 
BSCM221C 
BSCM222C 
BSCM 22 3C 
BSCM224C 
BSCM225C 
BSCM226C 
BSCM227C 
BSCM 22 8C 
BSCM229C 
BSCM23CC 
BSCM231C 
BSCM232C 
BSCM233C 
BSCM234C 
BSCM235C 
BSCM236C 
BSCM 237C 
BSCM238C 
BSCM239C 
BSCM240C 
BSCM241C 
BSCM242C 
BSCM243C 
BSCM244C 
BSCM245C 
BSCM246C 
BSCM247C 
BSCM248C 
BSCM249C 
BSCM250C 
BSCM251C 
BSCM252C 
BSCM253C 
BSCM254C 
BSCM255C 
BSCM256C 
BSCM257C 
BSCM258C 
BSCM259C 
BSCM260C 
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TE .AJ,sGle 22) 4,60)10 lel BSCM2610 
X = BASACC(INK»sJeK)/1000~ BSCM262C 
BASACC(INK,J,K) = X BSCM263C 
BASACC(NyJeK) = BASACC(NsJxK) + X BSCM264C 
LE (diwG0 a (20) (eGG) 1Gpi Zt BSCM265C 
X = RMACC(INKsJeK)/1C00. BSCM 2660 
RMACC(INK,J,K) = X BSCM267C 
RMACC(INsJeK) = RMACC(NeJeK) + X BSCM 2680 
LES sGTs 11),G05TO 121 BSCM269C 
X = DEDACC(INK,J,K)/1000~ BSCM270C 
DEDACCLINKsJeK) = X BSCM271C 
DEDACCINsJyK) = DEDACC(NsJeK) + X BSCM272C 
121 CONTINUE BSCM273C 
DO 122 J = ly 5 BSCM274C 
X = CURACC(INK,J)/1000- BSCM275C 
CURACC(INKsJ) = X BSCM276C 
CURACC(N,gJ) = CURACCIN,J) + X BSCM277C 
122 CONTINUE BSCM278C 
RETURN BSCM279C 
END BSCM280C 
SUBROUTINE MARTAB (INC, NINC, KLGIVNy GIVNAM, ITPCUT) MRTBCOOC 
MRTBCOIC 

SUBROUTINE TO PRINT TABLE SHOWING AVERAGE EFFECTIVE DIRECT TAX MRTBCO2C 
RATES AND EFFECTIVE MARGINAL DIRECT TAX RATES ON CIFFERENT MRTBCO3C 
COMPONENTS OF THE TAX BASE BY INCCME CLASS MRTBCO4O0 
ARGUMENTS MRTBCOS5C 
AS IN BASTAB MRTBCO6C 
MRTBCOTC 

COMMON /TITLES/ TITLE(6,20),5 TOTITL(65,11) MRTBCO SC 
DOUBLE PRECISION RMACC MRTBCOSC 
COMMON /ACCT/ RMACC(21,2092) MRTBC1OC 
DOUBLE PRECISION BASACC, TAXACC, CURACC, CEDACC MRTBC1LI1C 
COMMON /ACC6/ BASACC(2192292)5 TAXACC(2192492)_ CURACC(2155)y MRTBC1i2C 
$ DEDACC(21,11,2) MRTBC13C 
COMMON /PROGID/ RCASE», ACASE, IPSET, ITSET, SETNOy DATE(2), ITTUDEFMRTBC14C 
DIMENSION BADD(2292)_ RATMAR(2092) MRTBC15C 
DIMENSION OUT(4)», TOTAL(3)»2 AGG(3), NTCT(10), ALPHA(2), BUT(3) MRTBC16C 
DATA ALPHA / 3HNCT, 3HARE / MRTBCLIC 
DATA NTOT / 6y Dy 105 159 20, 5*O / MRTBC18C 
DIMENSION CESTAX(4,2) MRTBC19C 
DATA (DESTAX(Ky1l)» K=l,y 4) / 24HAVERAGE MARGINAL RATES /y MRTBC20C 
$ (DESTAX(Ky2), K=l, 4) / 24HEFFECTIVE TAX RATES / MRTBC21C 
N = NINC + 1 MRTBC22C 
INCi = INC MRTBC2 30 
IF (INC .EQ. 0) INC = N MRTBC24C 
KTAX = l MRTBC25C 
icc OC 101 J = ly 22 MRTBC26C 
DO 101 K = ly 2 MRTBC27C 
BADD(JsK) = BASACC(INC,JyK) MRTBC28C 
IF (J -GT.- 20) GC TO 101 MRTBC29C 
RATMAR(J,K) = RMACCC(INC,J,K) MRTBC30C 
IF (KTAX .EQe 2) RATMAR( SK) = TAXACCUINC, JK) MRTBO31C 
101 CONTINUE MRTBC32C 
ITOT = 1 MRTBC33C 
WRITE (ITPCUT,1) SETNC, RCASE», ACASEs DATE, ALPHA(ITUCEF) MRTBC34C 
CALL SUPREF{ 3 ) MRTBC35C 
IF (KTAX -EQ- 1) WRITE (ITPOUT,2) MRTBC36C 
IF (KTAX -EQ- 2) WRITE (ITPOUT,10) MRTBC37C 
IF (KLGIVN ~EQ. 0) GO TO 103 MRTBC38&C 


102 


1¢3 


104 
105 


1C6 


107 


1c8 


ig 


116 


se Me] 
117 


1 
$ 
$ 

2 
$ 

3 
$ 
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or CANCEL EQ. 0) GOTC 102 

WRITE (ITPCUT,3) GIVNAM, KLGIVN, INCL 
SU 10 105 

WRITE (ITPOUT,4) GIVNAM, KLGIVN 

SO 10 105 

IF (INCL .~EQ. 0) GO TC 104 

WRITE CITPOUT,5) INCL 

GO TO 105 

WRITE (ITPCUT,6) 


WRITE (ITPOUT,7) (DESTAX(KsKTAX)» K=ly 4) 


DC 106 J = ly 3 
AGG(J) = C. 

TOTAL(J) = Ce 

add Se Ke = D4’ 220 
BUT(1) = BADD(K,1) 
BLUT(2) = RATMAR(K ,2) 
BLT(3) = RATMAR(Kgl) 
ITHRU = 1 

OUT(1) = BLT(1) 
OUT(2) = Ce 

OUT(3) = C. 

OLT(4) = C. 


IF (ABS(OLT(1)) «LE. 0-000000001) 
OUT(2) = BUT(2)/BLT(1) 

OUT(3) = BUT(3)/0LT(1) 

OUT(4) = C. 

fm AOUT(S) .EQs. 069 "GO 10 109 

IF (OUT(2) ~EQ. O.) OUT(4) = 999999.90*(OUT(3)/ABS(CUT(3))) 
 AOUT(2) «EQ. Osh GE RTO" 109 

OUT(4) = (OUT{(3)/CUT(2) - 1.)*100. 

GO TO (11Cy, 113, 117), ITHRU 

WRITE (ITPOUT,8) Ky (TITLE(L eK)», L=ly6)y (OUT(L)» L=1ly4) 

DG 1ll J = ly 3 

TOTAL(J) = TOTAL(J) + BUT(J) 

Pe UK NES’ NTOT(ITOT)) «GO: TO 115 

TTARY = 2 

ITOT = ITQT + 1 

DO 112 J = ly» 3 

BUT(J) = TCTAL(J) 

GC TO 1C7 

WRITE (LTPOUT,9) (TOTITL(L,TTCT-1)», L=1ly6)_9 (CUT(L), L=1,4) 
Tr (K 2EQ05°9) GO’ TO 115 

Oi 1i4y J = 1,3 

AGG(J) = AGG(J) + TOTAL(J) 

TCTAL(J) = Ce 
IF (K .NE~ 20) 
ITHRU = 3 
BPestio?) = Ly" 3 
BLT(J) = AGG(J) 
Soe 410'40T 
CONTINUE 

WRITE (ITPCUT,9) (TOTITL(Le6)_y L=1,6), (OUT(L), L=1,4) 
KTAX = KTAX + 1 
IF (KTAX .EQ. 2) 
RETURN 


GO TO 108 


GC TC 115 


GO TC 100 


FORMAT (LHL, 6HSET NOe F5e29 2Xy L4HRATE SCHEDULE +» A5e 2Xy 


LSHASSUMPTICN SET » A6éy 2X_y SHDATE » 2A6y 2Xy LOHTAXPAYERS 


29H AGGREGATED INTO FAMILY UNITS //) 


sa fo ORG The 8 
MRTRBC4CC 
MRIBCSIC 
MRTIBC42C 
MRTBC4 3C 
MRTBC44C 
MR TBC45C 
MRTBC46C 
MRTBC47C 
MRTBC48C 
MRTIBC49C 
MRTBCSCC 
MRTBC5O1C 
MRTBC52C 
MRTBC53C 
MRTBC54C 
MRTBC55C 
MRTBC56C 
MRTBC57TC 
MRTBC58C 
MRTBC59C 
MRTBC6CC 
MRTBC6LC 
MRTBC62C 
MRTBC63C 
MRTBC64C 
MRTBC65C 
MRTBC66C 
MRTBC67C 
MRTBC68C 
MRTBC69C 
MRTBCT7OC 
MRTBC71C 
MRTBC72C 
MRTBC73C 
MRTIBC74C 
MRTBC75C 
MRTBC76C 
MRTBC77C 
MRTBC78C 
MRTBCT9C 
MRTBCBOC 
MRTBC81C 
MRTBC82C 
MRTBC8 3C 
MRTBCB4C 
MRTBC85C 
MRTBC86C 
MRTBC87C 
MRTBCB88C 
MRTBC89C 
MRTBC9CC 
MRTBCIILC 
MRTBC92C 
MRTBC93C 
MRTBC9I4C 
MRTBC95C 


A3sMRTBCI6C 


MRTBC97TC 


FORMAT (1HC, 24Xy 49HAVERAGE MARGINAL RATES ON EACH INCOME COMPONEMRTBC9IBC 


Diam 
FORMAT (21X~ 1L7HFOGR TAX UNITS IN 9 A6éy 6H CLASS», 14, 
2CH AND IN INCOME CLASS» I4 / 1X) 
FORMAT (33Xy L7HFOR TAX UNITS IN » A6éy 6H CLASS» [4 / 1X) 
FORMAT (35X, 29HFOR TAX UNITS IN INCOME CLASS,» 14 / 1X) 


MRTBCISC 
MRTBLOCC 
MRTB1O01C 
MRTB102C 
MRTB103C 


HOC Oia. GG OLOOLGrce? 


156 


6 FORMAT (3€Xy 26HFCR ALL CANADIAN RESIDENTS / 1X) MRTB104C 
7 FORMAT (LHC, 46Xy 1L3HCOMPREHENSIVE, 5Xy “Ab, MRTBLOSC 
$ 5X, BHPERCENT / 47X,y 1L3HINCCME ($000), 5Xy THCURRENTs 7X MRTB106C 
$ S8HPROPOSED, 6X, 6HCHANGE / 1X) MRTBLOTC 
& FORMAT (1X_ 129 LHey 2X 6A6y FI4e0y 2F15~3,% FlI2-1) MRTB108C 
G FORMAT (1LHCy 5Xo 6A6y F1l4-0% 2F15235 FIl2-1 / 1X) MRTB1LOSC 
10 FORMAT (1LHC, 20X, SSHAVERAGE EFFECTIVE RATES CF TAX ON EACH INCOMEMRTB116C 
$ COMPONENT) MRTB1LI1C 
END MRTB112C 
SUBROUTINE BASTAB (INC, NINCy KLGIVN, GIVNAM, ITPCUT) BSTBCOCC 
BSTBCOI1C 

SUBROUTINE TO PRINT TABLE SHOWING THE EFFECT OF REFORMS ON BSTBCO2C 
DIFFERENT COMPONENTS CF THE TAX BASE AND CN AVERAGE TAX RATES BSTBCO 3C 
FCR THOSE COMPONENTS BSTBCO4C 
RENUMBEREC FOR GITAN PRINTING BSTBCO5C 
ARGUMENTS BSTBCO6C 
INC = INCOME CLASS (OR UNCLASSIFIED BY INCCME IF = QO) BSTBCO7C 
NINC = NUMBER OF INCCME CLASSES BSTBCO8C 
KLGIVN = INDEX OF ADDITIONAL CLASSIFICATICN BSTBCOSC 
GIVNAM = ALPHAMERIC DESCRIPTICN CF ADDITICNAL CLASSIFICATION (A6) BSTBCLCC 
ITPCUT = MONITOR CUTPLT TAPE BSTBC1IC 
BSTBCi2C 

DIMENSION BADD(2292)y TAX(24 92), TAXC(6), DED(11,2) BSTBC13C 
COMMON /PROGID/ RCASE, ACASE, IPSET,», ITSET, SETNO, DATE(2), ITUDEFBSTBCL4C 
DOUBLE PRECISION BASACC, TAXACC, CURACC, CECDACC BSTBC141 
COMMON /ACCE/ BASACC(2192292)5 TAXACC(2152492)5 CURACC(2195), BSTBCL5C 
$ DEDACC(215911,2) BSTBC16C 
DIMENSTON OUT(13), TOTAL(13), AGG(13), NICT(10), ALPHA(2) BSTBC1I7C 
DATA ALPHA / 3HNOT, 3HARE / BSTBC18C 
DATA NTOT / 6% Gy 10y 1559 20, 5*0 / BSTBCLSE 
COMMON /TITLES/ TITLE(6,20), TCTITL(6,11) BS TBCZEC 
DATA (TITLE (Iy 1)y IT = ly 6) BSTBC21C 

$ / 36HWAGES AND SALARTES /y BS.TBC22¢ 
$ GCTIPLES (hy 20461 .=alpe6) BST8C23€ 
$ / 36HEMPLOYMENT EXPENSE CEDUCTIONS /y BSTBC24C 
$ CTELLG ths 13) eabas chs .6) BSTBC25C 
$ / 36HPROFESSTONAL INCCME / BSTBC26C 
$ CTRILE (1lee4)enl sel. 36) BSTBC27C 
% / 36HCOMMISSICN INCOME /y BSTBC28C 
$ CREEBE 2tPe eS) emha= Es'6! BSTBC29C 
$ / 36HATTRIBUTABLE BENEFITS A BSTBC3CC 
DATAM(LEITLE; (I, 6)% IT = Ts, 6) BS, FACS be 

$ / 36HFARMING AND FISHING INCOME /y BS.TB.GS2E 
$ OTITEE (he (lsgile=ule 6) BS IBC3 3¢ 
$ / 36HDIVIDENDS FRCM RESICENT COMPANIES /y BSTBC34C 
$ (TERILES Ul gp 48 hs fl = 6) BS.TEE25C 
$ / 36HCTHER CCRPORATE INCCME /» BSTBC36C 
$ CLELTLE. GLeyohs ple i946) BSTAC3 tC 
$ f/ 36HCAPITAL GAENS ON EQUITY INVESTMENTS “Jy BSTBC3AC 
$ CTLTLE (1 eh@)s ele= cle e6) BSTBC39C 
$ / 36HUNINCORPORATED BUSINESS INCCME / BSTBC40C 
DATA» LTITLE hb kb devel = els 6) BSTBC41C 

$ / 36HRENTAL INCCPE /+ BSTBC42C 
$ (LETCE bho dk2 hs eh rab) BSTBC43C 
$ / 36HCTHER CANADIAN INVESTMENT INCOME fy BSTBC44C 
$ CTITLE (Eo i 3 bewek suber) BSTBC45C 
$ / AGHNCN—BUSENESS JCARI LAL GAINS i) BSTBC46C 
$ (TITLE (1514), IT = Le 6) BSTBC47C 
$ / 36HFGREIGN INVESTMENT INCCME /y BSTBC48C 


1cc 


101 


103 


ner 


OHH A HHH HK HF PH He Wo HH oF 


PF AH FF HH oF OH HH HF 


tT 


CRETRE 415.25) 5 (10241546) 


/ Z36HDEDUCTICNS FROM INVESTMENT INCOME 


DATA (TITLE (1216)y I = ly 6) 
/ 36HGIFTS AND BEQUESTS 
(I,17), ig= l, 6) 
/ 36HTRANSFER PAYMENTS RECEIVED 
(1,18), I = ly 6) 
4 36HINSURANCE PROCEEDS 
(1,19), I = l, 6) 
/ 36HALIMONY RECEIVED 
(1-20), I = ly 6) 
4 36HMISCELLANEOQUS INCOME 
(TOTITL(Is 1)» IT = le 6) 
4 36HTOCTAL, LABCR INCOME 
PIGTHILG]: 2)e I -2 Ls 61 
4 36HTGTAL, CORPORATE INCOME 
GIO h Ul -3) 5. f= yo) 
/ 36HTOTAL, BUSINESS INCCME 
CTOTITA!, 435 I= ly 6) 
/ 36HTOTALy, CTHER INVESTMENT INCCME 
/ 36HTOTALs, CTHER INCOME 
(TOTITL(I, 6), I = ly 6) 
/ 36HTCTAL INCOME 
(TOTITL(I, TT)» bt 6) 
4 36HCONCESSIQNARY ALLCWANCES 
CTOTITLILT, 8), I = ly 6) 
4 36HFAMILY EXEMPTIONS 
(TOTITL{ IL, 9)-e I = le 6) 
/ 36HNET TAX BASE 
(TOTITL(I,10),5 I = ly 6) 
/ 36HAVERAGE TAX RATE ON BASE 
CTJOTITLILT,s11L)> LF = by 6) 
/ 36HTCTAL. TAXES ON BASE 


(TITLE 
fT RILE 
(TITLE 
(TITLE 


DATA 


DATA 


N = NINC + 1 
INCL = INC 

IF (INC NE. O) 
INC = N 
CDC 101 J 
DO 101 K 
TAX (JoK) = TAXACC(INC,J,K) 
Feat) .c67.c2). GCISELLoOL 
BADC(J,K) = BASACC(INC,J,K) 
Demi) “ole tir. GOTO 104 
DED (JK) = DEDACC(INC,J,K) 
CONTINUE 

8O7102  =-)5.-5 

TAXC(J) = CURACC(INC,J) 
CONTINUE 
TAXC(6) = TAXC(5) 
TAXC(5) = OC. 

ItToTt = 1 

NITEMS = 21 

ITHRU = 1 

ce =n 

LN = 6 
WRITECITPCUT,12) 
GALLE SSURREFL 3.) 
WRITE (ITPOUT,1) 
TeerKUGIVN <EQ. 0) 60 TO 105 

IF (INCL-EQ.0) GO TO 104 

WRITE (ITPOUTs14) GIVNAMs KLGIVN, 
GG TO 107 


GC TC 100 


“ow 
pS 
) 
NR 


SETNO,RCASE ,ACASE,DATE,ALPHA(ITUCEF ) 


INCL 


104 WRITE (ITPOUT,15) GIVNAM, KLGIVN 


95911—12 


/ 


BSTBC49C 
BSTBC50C 
BSTBO51C 
BSTBC52C 
BSTBC530 
BSTBC54C 
BSTBC55C 
BSTBC56C 
BSTBC57C 
BSTBC58C 
BSTBC59C 
BSTBC60C 
BSTBC61C 
BSTBO62C 
BSTBC63C 
BSTBC64C 
BSTBC65C 
BSTBC66C 
BSTBC67C 
BSTBC68C 
BSTBC69C 
BSTBC7TCC 
BSTBC71C 
BSTBC72C 
BSTBC73C 
BSTBC74C 
BSTBC75C 
BSTBO76C 
BSTBC77C 
BSTBC78C 
BSTBC79C 
BSTBC8CC 
BSTRC81C 
BSTBC82C 
BSTBC83C 
BSTBC84C 
BSTBC85C 
BSTBC86C 
BSTBC87C 
BSTBC88C 
BSTBC89C 
BSTBC9CC 
BSTBCI1IC 
BSTBC92C 
BSTBC93C 
BSTBC94C 
BSTBC95C 
BSTBCI6EC 
BSTBC9I7C 
BSTBC98C 
BSTBCIIC 
BSTB100C 
BSTB101C 
BSTB102C 
BSTB10 3C 
BSTB1O4C 
BSTB105C 
BSTB106C 
BSTB107C 
BSTB108C 
BSTB109C 
BSTB110C 
BSTB111C 
Bote ii2c 
ce Gol @ els 


105 


1C6 
107 


1071 


301 


3C2 


bw 


T0C 
701 


102 
Ta 


104 
705 


ci We | 


GO TO 107 

IF (INCL -EQ- 0) GO TE 106 
WRITE (ITPOUT,16) INCL 

GC TO 107 

WRITECITPCUT,11) 

IE LITHRU 2 EGe. 27, OU 10, fot 
WRITE(CITPOULT,9) 

WRITE (ITPOUT,2) 

GC TO 301 

WRITE (I TPOUT,10) 

WRITE (ITPCUT, 3) 

OO 302 Jo 1a is 


AGG(J) = C. 

TOCTAL(J) = Ce 

DO 35C K = ly NITEMS 

fr (Kk EQ. 2EP GUL She 

OUT( 1) = BADD(K,1) 

OLT( 2) = BADD(K,2) 

O15 i SP a 

OLT( 4) = C. 

OUT( 5) = BADD(K,1) - BADD(Ky2) 
OUT( €) = BADD(K,2) 


Tre lhe ell ee uur loons 
ARs Gh aey Le OU t ae 
(0) Oi it Gea Ba Or 

OUT( 3) = BADD(K,1) 


OUT( 4) OUT(6) 
OUT(5) = C. 
OUT(6) = CUT(1) 


IF (K .NE. 8) GO. TO 311 
lek bed Me eae 

OUT( 3) = QUT{6) 

IF (K .NE~ 16) GO TO 312 
felts? | sce le. 

OUT( 4) = CUT(6) 

Hutt 5) = Cs 

CONTINUE 

OUT(7) = OUT(6) 

OUT(1C) = GUT(1) 

QUT( 9) = TAX(Ky2) 


IF ({QUT(6).GT.~.-0CCOC00C001.OR.CUT(6).LT.—-.-0000000001) GO TO 7CG 


OUT( @) = C. 

GO VO 701 

OLT( &) = CUT(9)/CUT(6) 
OUT(12) = TAX(Kel) 


IF (QUT(1L).GT.~.00C0000001.CR.CUT(1L).LT~-.-0000000001) GO TO 702 


OLT(11) = Ce 
GO TO 703 
OUT(11) = QUT(12)/CUT(1) 


IF (OLT(9).GT.~.-0000000001.CR-CUTI(9).~LT.--0000000001) GO TO 704 


OUT(13) = C. 
GO TO 705 


OUT(13) = (OUT(12)/0UT(9) - 1L.)*100. 
IF (ITHRU EQ. 1) WRITE (ITPOUTs4) 


(CUT(L), L=LO,LN) 


IF (ITHRU «EQ. 2) WRITE (ITPOUT,5) 


(OUT(L), L=LO,LN) 
ly 12 
TOTAL(J) + OUT(J) 


DO 3i3.J 
TOTAL(J) 


IF (K .NE~ NTOT(ITCT)) GO TO 350 
IF (TOTAL(6)-GT.~.-0000000001.0R. TOTAL(6).LT~--0000000001) GO 


TOTAL(@) = O. 
Bo ve OF 


(TITLE(LyK)» 


(TITLE(LyK), 


BSTB114C 
BSTB115C 
BSTB11L6C 
BSTB117C 
BSTB118C 
BSTB119C 
BSTB12CC 
BSTB121C 
BSTB122C 
BSTB123C 
BSTB124C 
BSTB125C 
BSTB126C 
BSTB127C 
BSTB128C 
BSTB129C 
BSTBL3CC 
BSTIB ISTE 
BSI8 I3ze 
BSIBI3a¢ 
BSTB134C 
BSTB135C 
BSTB136C 
BSTB137C 
BSTB138C 
BSTB139C 
BSTB14CC 
BSTB141C 
BSTB142C 
BSTB143C 
BSTB144C 
BSTB145C 
BSTB146C 
BSTB147C 
BSTB148C 
BSTB149C 
BSTB150C 
BSTB151C 
BSTB152C 
BSTB153C 
BSTB154C 
BSTB155C 
BSTB156C 
BSTBL57C 
BSTB158C 
BSTB159C 
BSTB16CC 
BSTB161C 
BSTB162C 
BSTB163C 
BSTB164C 
BSTB165C 
BSTB166C 
BSTB167C 
BSTB168C 
BSTB169C 
BSTB17CC 
BSTB171C 
BSTB172C 
BSTB173C 
BSTB174C 


TO TOEBSTB175C 


BSTB176C 
BSTB177C 


706 
107 


315 


file 


413 


714 
715 


716 
717 


317 


321 


718 
I2¢ 


35C 


159 


TOTAL(8) = TOTAL(9)/TOTAL(6) BSTB178C 
IF (TOCTAL(1)-GT.e--CCOCQQOO00L.~OR-TOTAL(1)-LT---QO000COQ0001) GC TO 7O08&BSTB179C 
TOTAL(11) = O. BSTB18GC 
GO TO 709 BSTB181C 
TOTAL(11) = TOTAL(12)/TOTAL(1) BSTB182C 
IF (TOTAL(9)-GT.~-COCOCOO000L-OR-TOTAL(9).LT.~—-O0000000001) GO TO 71CBSTB183C 
TOTAL(13) = OC. BSTB184C 
GO T0 7ll BSTB185C 
TOTAL(13) = (TOTAL(12)/TOTAL(9) - 1.)*100. BSTB186C 
IF (ITHRU .EQe 1) WRITE (I TPOUT 96) (TCTITL(L,ITOT), L=1ly6), BSTB187C 
(TOTAL(L), L=LC,LN) BSTB188C 
IF (ITHRU EQ. 2) WRITE (ITPOUT,7) (TCTITL(L»ITOT), L=1l,6), BSTB1890C 
(TOTAL(L), L=LO,LN) BSTB190C 

WRITE { ITPOUT , 20 ) BSTB191C 
TTOT = ITCT + 1 BSTB192C 
IF (NTOT(ITOT-1) .€Q. 9) GO TO 350 BSTB193C 
oo 315 J = Ll, l2 BSTB194C 
AGG(J) = AGG(J) + TOTAL{J) BSTB195C 
TOTAL(J) = O- BSTB196C 
IF (NTOT(ITOT-1) .~NE~ 20) GO TO 350 BSTB19T7C 
IF (AGG(6).GT.~-O0CCO00C00001-.OR-~AGG(6).LT~—-- 0000000001) GO TO 712 BSTB198C 
AGG(8) = C. BSTB1990 
GC TO 713 BSTB200C 
AGG(8) = AGG{(9)/AGG(6) BSTB201C 
IF (AGG(1)-GT.~-0000000001.GR.-AGG(1L).LT.~.—-.0000000001) GO TO 714 BSTB202C 
AGG(1L) = C. BSTB203C 
Oe 10 715 BSTB204C 
AGG(11) = AGG(12)/AGG(1) BSTB205C 
IF (AGG(9).GT.~-00COQ000001L.0R.-AGG(9).~LT.-.0000000001) GO TO 716 BSTB2060 
AGG(13) = C. BSTB207C 
GO TO 717 BSTB208C 
AGG(13) = (AGG(12)/AGG(9) - 1.)*100. BSTB209C 
TF CITHRU .£0Q.,d+ BSTB2100 
WRITE (ITTPOUT,6) (TOTITL(L»96), L=l,6), (AGG(L), L=LO,LN) BSTB211C 
if LTTHRU ~£0-0,; :2) BSTB212C 
WRITE (ITPOUT,7) (TOTITL(L»6), L=le6), BSTB21 30 
(AGG(L)» L=LOeLN) BSTB214C 
GO TO 350 BSTB21L5C 
CONTINUE BSTB21L6C 
IF (ITHRU NE. 1) RETURN BSTB217C 
ZERQ = OC. BSTB2180 
WRITE (ITPOUT,13) (TOTITL(L»7),5 L=hy6), BACDC( 21,1), BADD(21,2),BSTB219C 
$ZERC, ZERC, ZERO, BADD(21,2) BSTB220C 
WRITE (ITPOUT,13) (TOTITL(L»98), L=ly6), BADD(2251)_, BADD(22¢2),BSTB221C 
$ZERC, ZERO, ZERO, BADD(22,2) BSTB2220 
DC 221 J = le 6 BSTB223C 
TOTAL(J) = AGG(J) BSTB2240 
TOTAL(1)=AGG(L)—( BADD (21¢1)+BADD(22,1)) BSTB2250 
TOTAL(2) = AGG(2) — (BADD(21e2) + BADD(2252)) BSTB226C 
TOTAL(6) = AGG(6) - (BADD(21,2) + BADD(2252)) BSTB227C 
D= 0. BSTB22 8C 
WRITE (ITPOUT,6) (TOTITL(L,9), L=l eb), (TOTAL(L)» L=1,6) BSTB229C 
DO 3222 J = ly» 6 BSTB23CC 
IF (TOTAL(J)-GT~-0000000001.0R. TOTAL(J)~LT.~—-.-0000000001) GO TO 71EBSTB2310 
OUT(J)=0. BSTB232C 
GO 10 322 BSTB233C 
OUT(J) = (TAXC({(JI )/TOTAL(J)) BSTB234C 
CONTINUE BSTB2350 
WRITE (ITPOUT,6) (TOTITL(Lell)», L=1l96)>» (TAXC{L), L=1l,6) BSTB236C 
WRITE (ITPOUT,8) (TOTITL(L,10)_, L=ly6)% (QUT(L), L=1,6) BSTB237C 
CONTINUE BSTB2380 
IF (ITHRU EQ. 2) RETURN BSTB2390 
ITHRU = 2 BSTB240C 
LC = 7 BSTB241C 
LN = 13 BSTB2420 


95911—123 


aan 


ITOT=1 


GO TO 103 


1 FORMAT ( 


160 


1HO0,23X,36HEFFECT OF REFORMS CN THE TAXATION OF, 


$37H DIFFERENT COMPCNENTS OF THE TAX BASE) 


BSTB243C 
BSTB244C 
BSTB245C 
BSTB2460 
BSTB247C 


2 FORMAT ( LHO,y 46X,y SHTOTAL, 6X,_ L4HBASE NCW TAXED, 3X», SHBASE NOW,BSTB248C 
$ 4X, NOW, 4X, SHBASE NOWs 4Xe SHTOTAL / 43X» BSTB249C 
$ 13HCOMPREHENSIVEs 5X», THAT FULL» 7X» BSHTAXED ATs 4Xy BSTB 2500 
$ QGHTAXED ATy 15X_9 THCURRENT, / 47X_9 4SHBASEs 7X, BSTB2510 
$ 1L4HPERSONAL RATES, 2X, LOHCCRP RATES, 2X_y LIHOTKER RATES, 4X, BSTB252C 
$ 6HEXEMPT, 5X, 4SHBASE / 1X) BSTB 2530 

3 FORMAT 1HO, 44X, SHTOTAL, 4X, THAVERAGE, 4X, THCURRENT, 6X, BSTB254C 
$ SHTOTALs 5X, THAVERAGE, 3X, QYHTAX UNDER», 2X~e LOHPERCENTAGE / BSTB255C 
$ 44X,_y THCURRENT, 3X, THCURRENT, 15X, QHCCMPREHEN, 2X, SHPROPOSED,BSTB256C 
$ 4X~e 8BSHPROPOSEDs, 2Xs LOHCHANGE IN / BSTB257C 
$ 45X, 4HBASE, 4Xe GHTAX RATESs 5X_y 3ZBHTAXs 6X9 DHSIVE BASEs 2Xy BSTB258C 
$ QHTAX RATES» 4X_ SHRATES, 6X», SHTAXES / LHC) BSTB259C 

4 FORMAT ( I2, lHeeg 2X» 6A6y Fl2e0e 4Xe 3F13-0, FLIO.O, F110) BSTB 2600 

5 FORMAT ( I2_, LHe» 2X9 6A6y FLOOy F903, FI2e0yg FIZ00y F923, BSTB261C 
$ F13.0, F10.1) BSTB262C 

6 FORMAT THO »5Xe 6A6_y FI2.0%9 4Xy 3F13~-0, Fl0-0, F11.0) BSTB 26 30 

7 FCRMAT 5Xo 6A6e FLlO.0y F903e FI2-0y FI320y FIW3,s BSTB264C 
$ F13.0, F101) BSTB265C 

& FORMAT(1H 5X» 6A6,y Fl2035 4Xy 3F13-3,5 F103, F113) BSTB266C 

9 FORMAT(1X,46H1. CURRENT TAX TREATPMENT OCF COMPONENTS OF THE, BSTB267C 
$14H CCMPREHENSIVE/ 5X,38HTAX BASE (DCLLAR FIGURES IN THOUSANDS, BSTB268C 
$12H OF DOLLARS)//) BSTB269C 


1C FORMAT(1X,52H2. 


TAXES AND TAX RATES ON CCMPCNENTS OF THE CURRENT, BSTB27CC 


$13H AND PROPOSED/5Xs39HTAX BASES (DOLLAR FIGURES IN THOUSANDS, BSTB271C 
$12H OF DOLLARS)//) BSTB272C 
11 FORMAT 26HFCR ALL CANADIAN RESIDENTS / 1X) BSTB273C 
12 FORMAT(IH1, 6HSET NO» F529 2X_e L&4HRATE SCHEDULE » A5y 2Xy BSTB274C 
$LSHASSUMPTION SET »A6_2X_,5HDATE »92A69 2X_y LOHTAXPAYERS »A3,y BSTB275C 
$29H AGGREGATED INTC FAMILY UNITS//) BSTB276C 
13 FORMAT 99Xy 6A6, FI2-0, 4Xy 3F13.-0, F10.0y F11.0) BSTB277C 
14 FORMAT L7HFCR TAX UNITS IN 5 A6és 6H CLASS» 14,» BSTB278C 
$ 2CH AND IN INCOME CLASS, 14 / 1X) BSTB279C 
15 FORMAT 17HFCR TAX UNITS IN » A6y 6H CLASS», 14 / 1X) BSTB28CC 
16 FORMAT (44X, 29HFOR TAX UNITS IN INCOME CLASS, 14 / 1X) BSTB281C 
20 FORMAT ) BSTB282C 
END BSTB283C 
SUBROUTINE BASKLS (NINC, KLGIVNy GIVNAM, ITPOUT) BSKLCOOC 
BSKLCOLC 

RENUMBERED FOR GITAN PRINTING BSKLCO2C 
BSKLCO3C 

DOUBLE PRECISION BASACC, TAXACC, CURACC, DEDACC BSKLCO31 
COMMON /ACC6/ BASACC(2142292), TAXACC(21,24,2), BSKLCO4C 

$ CURACC (2195) DEDACC{(21,11l92) BSKLCO5C 
COMMON /PRCGID/ RCASE, ACASEs IPSET, ITSET, SETNOy DATE(2), ITUDEFBSKL CO60 
COMMON /SWITCH/ ISW(25) BSKLCO7C 
BSKLCO8C 

DIMENSION TITLE(6920) BSKLCO9C 
DATA (TITLE (¥y l)y IT = ly 6) BSKLCLOC 

$ / 36HWAGES AND SALARIES /y BSKLC1L1C 

$ (TITLE (1, 2),5 IT = ly 6) BSKLC12C 

$ / 36HEMPLOYMENT EXPENSE DEDUCTIONS /» BSKLC13C 

$ {TET LENNIE 5 1979911 =63576) BSKLCL4C 

$ 4 36HPROFESSICNAL INCCME /y BSKLC15C 

$ (TITLE (1, 4), I = le 6) BSKLC160 


PH 


wv 


DATA 


CPA HH FH HF 


DATA 


Pee HH HH HH HK HF 


DATA 


FP wm HH we KH 


(TITLE 
(TITLE 
(TITLE 
(TITLE 
(TITLE (T, 
(TITLE 
(TITLE 
(TITLE 
(TITLE 


(TITLE 


5 


6 


7 


8 


9 


(I,lO), I = 
(I,1l), 


(1,12), I = 


161 


4 36HCOMMISSION INCOME 

de I = l» 6) 

4 36HATTRIBUTABLE BENEFITS 
Ys I = ly 6) 

4 36HFARMING AND FISHING 
dy {= l», 6) 

/ 36HDIVIDENDS FROM RESICENT COMPANIES 
Vy Ae Le 7S) 

/ 36HOTHER CCRPORATE INCOME 

dy I = ly 6) 

/ 36HCAPITAL GAINS ON EQUITY INVESTMENTS 
1, 6) 

4 36HUNINCORPORATED BUSINESS INCOME 

I = l» 6) 

/ 36HRENTAL INCOME 

ly 6) 

/ 36HOTHER CANADIAN INVESTMENT INCOME 


INCCME 


(I,13)% I = ls 6) 


/ 36HNON-BUSINESS CAPITAL GAINS 


(I,14), I = ly 6) 


/ 36HFCREIGN INVESTMENT INCCME 


(TITLE (1,15), IT = ly 6) 

/ 36HDEDUCTICNS FROM INVESTMENT INCOME 
(TITLE (1,16), I = ly 6) 

/ 36HGIFTS AND BEQUESTS 
(TITLE (1e17)y IT = ly 6) 

/ 36HTRANSFER PAYMENTS RECEIVED 
(TITLE (1,18), IT = ly 6) 

/ 36HINSURANCE PROCEEDS 
(TITLE (1519), I = ly 6) 

/ 36HALIMCNY RECEIVED 
(TITLE (1,20), IT = ly 6) 


/ 36HMISCELLANEQUS INCOME 


DIMENSION TITLES(6,11) 


DATA 


oer Se HH HH HH 


DATA 


FAH HO FH HO PK HF 


(TITLES(I, 
PT RILES (I, 
(TITLES(I» 
(TITLES(TIs 
(TITLES(I, 
(TITLES(TI, 
(TITLES(I > 
(TITLES(I, 


(TITLES(I, 


(TITLES(1,10),% 


1 


2 


Sa) 


oO 


= 


9 


), IT = ly 6) 

/ 36HPENSION CONTRIBUTICNS 
Je IT = ly 6) 

/ 36HRETIREMENT SAVINGS 


d» I = ly 6) 
/ 36HMEDICAL EXPENSES (NET) 
de I = ly 6) 
/ 36HCHARITABLE DONATIONS 
Ye IT = ly 6) 
/ 36HSTANDARD DEDUCTIONS 
do I = l, 6) 
/ 36HALIMONY PAID 
Ve D176) 
/ 36HOTHER CEDUCTIONS 
dy a= l, 6) 
/ 36HCREDITS FOR DEPENDENTS 
ke J. Sky on 
/ 36HDIVIDEND TAX CREDITS 
I = l, 6) 


/ 36HCREDIT FCR CCRPCRATE TAX 


(TITLES( 1,11), IT = le 6) 


/ 36HCTHER TAX CREDITS 


NIMENSION TOTITS (6,15) 


DATA 


ARR HH HH 


CTOTLETS AL s 
(TOTITS(I» 
OTT TS Ty 


(TOTITS(s 


1 


fe 


3 


4 


dy IT = ly 6) 
/ 36HTOTAL, 
Met A. = FW, 6) 
/ 36HTOTALy, 
ly Tos dy 6) 
/; 36H TECTAL, 
Wee AE ez ee xo 
/ 36HTOTAL, 


LABCR INCOME 
CORPORATE INCCME 
BUSINESS INCCME 


OTHER INVESTMENT INCCME 


/y 


/» 


/> 


ls 


ly 


BSKLC17C 
BSKLC18C 
BSKLC190 
BSKLC200 
BSKLC21C 
BSKLC22C 
BSKL C2 3C 
BSKLC24C 
BSKLC25C 
BSKLO26C 
BSKL 02 70 
BSKLO28C 
BSKLC29C 
BSKLC30C 
BSKLO31C 
BSKLC32C 
BSKL C3 3C 
BSKLC34C 
BSKLC35C 
BSKLC36C 
BSKL C370 
BSKLC38C 
BSKLC39C 
BSKLC40C 
BSKLC41C 
BSKLO42C 
BSKLC43C 
BSKLC44C 
BSKLC45C 
BSKLC46C 
BSKLC47C 
BSKLC48C 
BSKLC49C 
BSKLO5CC 
BSKLC51C 
BSKLC52C 
BSKLO53C 
BSKLC54C 
BSKLO55C 
BSKLO56C 
BSKLO57C 
BSKLC58C 
BSKLC59C 
BSKLO6CC 
BSKLC61C 
BSKL 062C 
BSKL063C 
BSKLC64C 
BSKLC65C 
BSKLC66C 
BSKLC67C 
BSKLC68C 
BSKLC69C 
BSKLC70C 
BSKLC7I1C 
BSKLC72C 
BSKLC73C 
BSKLC74C 
BSKLC75C 
BSKLC76C 
BSKLCT77C 
BSKLC78&C 
BSKLC79C 
BSKLCBCC 
BSKLCBILC 


Aan 


op el ge i ge 


1001 


Pwr & Fr KF WH 


Pe Ht MH MH OH HF oH 


$ 


(TOTITS(I, 
(TOTITS(I» 
(TOTITS(T, 
(TOTITS(I, 8 


DATA UTOITIS(IS 9 


162 


igo 5. its 6) 

/ 36HTOTAL, OTHER INCOME ‘+ 
6), IT = ls» 6) 

/ 36HTOTAL INCCHRE ‘9 
7), IT = ly 6) 

/ 36HTOTAL CONCESSICNARY ALLOWANCES /» 

)s lez ls 6) 

/ 36HFAMILY EXEMPTIONS Fi 

d> I = ly 6) 

/ 36HNET TAX BASE /+ 


(TOTITS(I,1C), I = ly 6) 


/ 36HGROSS TAX BEFORE CREDITS iz) 


CTOTITS Ui sl ligciv=vieso 


/ 36HTOTAL CREDITS /> 


(TOTITS(1,12), I = ly 6) 


/ 36HPERSONAL INCOME TAXES /> 


(TOTITS(1,13),5 I = ly 6) 


/ 36HCORPORATE INCOME TAX ly 


(TOTITS(1,14), IT = Le 6) 


/ 36HTAXES CN GIFTS AND BECUESTS i) 


(TOTITS(I,15),y I = ly 6) 


/ 36HTOTAL OIRECT TAXES / 


DIMENSION TOTINC(21,2), TOTINK(2192)_ TAXBAS(2192)9 GROSTX(2192)% 
TCREDS(2192)9 TDTAXS(21,2), CALLCW(21_92), SUBTOT(21,2,5), 

ALPHA (2) 

DATA ALPHA / 3HNOT, 3HARE / 


NTOT(10), 


DATA NTOT / 6% 


NITEM = 2C 
NITEMS = 11 


9, 10% 159 20% 5*0 / 


NINCPL = NINC + 1 


N = NINCPL 
INITIALIZE 


DC 100 I = 
DC 10C J = 
TOTINC(I,J) 
TOTINK( I,J) 
TAXBAS(I,J) 
GROSTX(I,J) 
TCREDS(1I,J) 
TOTAXS(1I,J) 
CALLOW(I,J) 
DO 10C K = 


TABLES 


ly» 
SUBTOT(IsJ9K) 


CONTINUE 


BASACCI(INs, 8,2) 
BASACCIN,16,2) 


Di 105] = 
BASACC(I,8&s 


BASACC(1,16,2) 


NO 105 J = 


ly 
2) 


l» 


NINCPL 


2 


CALCULATE -NET TAX BASE- AND -GROSS TAX BEFORE CREDITS-—- 


DO 1001 K = 


TAXBAS(I,J) 
TAXBAS(1,J) 
TAXBAS(N, J) 
GROSTX(I,J) 
GROSTX(N,»J) 


ls 


20 
TAXBAS(I J) + BASACC(I»K,J) 
TAXBAS(I,J) -— (BASACC(I,21,J) + BASACC(I,22,J)) 
TAXBAS(N,J) + TAXBAS(T,J) 
TAXACC(1,24,J) 
GROSTX(NeJ) + TAXACC(1I,24-J) 


BSKLC82C 
BSKL C8 3C 
BSKLCB84C 
BSKLC85C 
BSKLC86C 
BSKLC87C 
BSKLC88C 
BSKLC89C 
BSKLC9O0C 
BSKLC9I1C 
BSKLC92C 
BSKLC93C 
BSKLC94C 
BSKLC95C 
BSKLC9I6C 
BSKLC97C 
BSKLC98C 
BSKLC99C 
BSKL10CC 
BSKLI101C 
BSKL102C 
BSKL103C 
BSKL104C 
BSKL105C 
BSKL106C 
BSKL107C 
BSKL108C 
BSKL109C 
BSKL110C 
BSKLILIC 
BSKL 112C 
BSKL113C 
BSKL114C 
BSKL115C 
BSKL 116C 
BSKLI17C 
BSKL118C 
BSKL119C 
BSKL120C 
BSKL121C 
BSKL122C 
BSKL123C 
BSKL124C 
BSKL125C 
BSKL126C 
BSKL127C 
BSKL128C 
BSKL 129C 
BSKL 1300 
BSKL131C 
BSKL132C 
BSKL 1330 
BSKL134C 
BSKL135C 
BSKL 136C 
BSKL137C 
BSKL138C 
BSKL139C 
BSKL 1400 
BSKL 1410 
BSKL142C 
BSKL143C 
BSKL144C 
BSKL145C 


aan 


COG: aan 


Gone Ga 


101 


LUS 
ELC 


ll2 


Lid 
$ 


13C 
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CALCULATE TOTAL INCOME 


PLOT r= (1 

NC 101 K = ly 20 

TOTINK( I,J) = TOTINK( I,J) + BASACC(IsK,J) 
IF (NTOTC(ITOT) ~NE~ K) GO TG 101 
SUBTOT(I,Je,T TOT) = TOTINK(T»J) 


SUBTOT(IN»s Je TTOT) = SLBTOCT(N,J,T TOT) + SUBTOT(I,J,ITOT) 


TIOT =, LTCT.+ 1 

PeneNtOy ALTOT—-1) «EC. 9) GO TO 10] 
TCTINC (IyJ) = TOTINC( I,J) + TCTINK(1,9J) 
TOTINK(I,J) O. 

CCNTINUE 

TCTINC(N, J) = TOTINC(N,J) + TCTINC(I,J) 


CALCULATE TOTAL CONCESSIONARY ALLCWANCES 


OG pLO2Z «Ku= Ley? 
CALLOW(I,J) CALLOW(I,J) + DEDACC(I,KyJ) 
CALLOW(Ns J) CALLCW(N,J) + CALLOW(I,J) 


wou 


CALCULATE TOTAL CREDITS 


HO4PC3 .K-=.8 
TCREDS (I,J) 
TCREDS(N,J) 


il 
TCREDS(I,J) + DEDACC(1I,K,J) 
TOREDSUN¢)0) + TCREDS (1 J) 


= 


CALCULATE TOTAL DIRECT TAXES 


DG 104 K = 21, 23 

TOTAXS( IJ) TOTAXS(I,J) + TAXACC(I,KyJ) 
TCTAXS(N, J) TOTAXS(NeJ) + TOTAXS(1,J) 
CONTINLE 


Wout 


PeeOrSWt9),-.-EQ. GC) -GO TG 109 


ITHRU = 1 


WRITEC(ITPCLT,12) SETNGyRCASE,ACASE, DATE, ALPHA(ITUCEF) 


Sew ustPREF( 3 ) 

EeabITAGustGe 1) WRT etl TAeGUT sl) 

TF -CITAB. «EQ. 2), WRITE, (LTP QUT,2) 

Le: LLTAB 460-03), c- WRLTE eUREPOUL, 13) 

DPantKLGIVN: «ECs O} G0tG F1LOT 

WRITE (ITPOUT,9) GIVNAM, KLGIVN 

GC TO 1102 

WRITE (ITPCUT,10) 

Te ALN .EQs NINCPL) .GOriG siti 

WRITE (ITPCUT,3) ( Ly L=LOyeLN ) 

GO TO 112 

eps (LN pe el 

WRITE (ITPOUT,4) ( Ly L=LO,yL) 

ITOT = 1 

DG P30 1 = ly ‘NETEM 

WRITE CETPOUTs5) Ty (TITLE(L I). L=1l,6), 

IF (I eNE~ NTOT(ITCT)) GO TO 130 

WRITE (ITPOCUT,6) 
(SUBTOT(LsIX,I TCT), L=LO,LN) 

POte = EOI -+),) 

CONTINLE 


(BASACC(LyIyIX)>» 


(TOTITS(Ly,ITOT), L=ly6), 


BSKL146C 
BSKL147C 
BSKL148C 
BSKL149C 
BSKL15CC 
BSKL151C 
BSKL152C 
BSKL153C 
BSKL154C 
BSKL155C 
BSKL156C 
BSKL157C 
BSKL158C 
BSKL159C 
BSKL160C 
BSKLI161C 
BSKL162C 
BSKL163C 
BSKL164C 
BSKL165C 
BSKL 166C 
BSKL167C 
BSKL168C 
BSKL169C 
BSKE BLOG 
BSKL171C 
BSKL172C 
BSKL173C 
BSKL174C 
BSKL175C 
BSKL176C 
BSKL177C 
BSKL178C 
BSKL179C 
BSKL180C 
BSKL181C 
BSKL182C 
BSKL 18 3C 
BSKL184C 
BSKL1841 
BSKL 1842 
BSKLt 1842 
BSKL185C 
BSKL186C 
BSKL187C 
BSKL188C 
BSKL189C 
BSKL1891 
BSKL190C 
BSKLI91C 
BSKL192C 
BSKL193C 
BSKLI194C 
BSKL195C 
BSKL196C 
BSKL197C 
BSKL198C 
BSKL199C 
BSKL 2000 


L=LO,LN)BSKL201C 


BSKL202C 
BSKL203C 
BSKL 204C 
BSKL205C€ 
BSKL206C 


Ele gee wel eal 
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WRITE CITPOUT,6) (TOTITS(Ls6)5 L=le6)_5 (TCTINC(LyIX)y L=LO,LN) BSKL 207C 

DO 14C I = le 7 BSKL 208C 

eT 2) \Pe20 BSKL209C 
WRITE (ITPOUT,5) IIL, (TITLES( Lol), L=lo6),y BSKL21CC 

$ (CEDACC(LsI,IX), L=LCytN) BSKL211¢ 
140 CONTINUE BSKL212C 
WRITE (CITPOUT,6) (TOTITS(Ls?)e L=le6)y (CALLCW(L,IX), L=LO,LN) BSKL213C 
WRITE CITPCUT,7) (TOTITS(L,8), L=ly6), (BASACC(L,22,1X), L=LOstN) BSKL214C 
WRITE (CITPOUT,6) (TOTITS(L 9)» L=lys6)9 (TAXBAS(LyIX), L=LOeLN) BSKL 215C 
WRITE (ITPCUT,8) (TOTITS(Ly10), L=ly6)y (GROSTX(L,IX)», L=LO,LN) BSKL216C 

UG) 160s) «a4 Be. Lt BSKL217C 

i ee UB, os 2 BSKL218C 
WRITE (ITPOUT,5) Ile (TITLES(LyI), L=1l96)y% BSKL219C 

$ (CEDACC(L»I,1IX), L=LO,LN) BSKL 220C 
16C CONTINUE BSKL221C 
WRITE (ITPOUT,6) (TOTITS({(Ls11)5 L=l,6)_9 (TCRECS(L»IX)»y L=LOyLN) BSKL 222C 
WRITE (ITPGUT,7) (TOTITS(L,12), L=l,6)_ (TAXACC(Le21,IX), L=LOeLN)IBSKL 223C 
WRITE (ITPOUT,7) (TOTITS(L,13), L=le6)_ (TAXACC(L22,1X), L=LOygLNIBSKL224C 
WRITE (ITPOUT,7) (TOTITS( L914) 5 L=ly6)_ (TAXACC(L»2391X)y L=LOyLNIBSKL 225C 
WRITE CITPOUT,6) (TOTITS(Ly15)5 L=ly6)_ (TDTAXS(L,IX), L=LOyLN) BSKL 22 6C 

IF (LN .GE. NINCPL) GC TO 180 BSKL227C 
ITHRU = ITHRU + 1 BSKL 228C 

a Ca 0 eae | BSKL 2290C 

EN V=ULN ot 2 BSKL23CC 

IF (LN .GT. NINCPL) LN = NINCPL BSKL231C 

GO TO 110 BSKL232C 
18C IF (I1TAB .GE. 2) RETURN BSKL 2330 
tX4= 1 BSKL234C 

1c =l BSKL235C 

LN = 7 BSKL 236C 
ITAB = 2 BSKL237C 

GC TO 109 BSKL238C 
BSKL239C 

1 FORMAT (1HCy»y 5X, S8HL. BASE CURRENTLY TAXED AT PERSONAL LEVEL BY BSKL 2400 
PUNCOME CLASS) BSKL241C 

2 FORMAT (1hOy 5X, 38H2. COMPREHENSIVE BASE BY INCCME CLASS) BSKL 242C 
3 FORMAT (LHC, 28X, L2HINCOME CLASS, 7I11 / 1X ) BSKL 24 3C 
4 FORMAT (1LHCy 28X%e L2HINCOME CLASS» 6I11ly 6X_y SHTOTAL / 1X ) BSKL 244C 
5 FORMAT (1X9 I2y LlHey 2Xe 6AG6y TF11.0 ) BSKL245C 
€ FORMAT (LHC, 5X, 6A6y 7FIL.0 / /) BSKL246C 
7 FORMAT (6Xy» 6A6y% 7F11.0) BSKL 247C 
& FORMAT (6X, 6A6,y 7F11.0 //) BSKL 24 8C 
S FORMAT (1CX, L7HFCR TAX UNITS IN » A6by 6H CLASS,» 14, BSKL 249C 
6 24H (THCUSANDS CF DCLLARS) / 1X) BSKL 2500 
10 FORMAT (1CX~* 26HFOR ALL CANADIAN RESIDENTS, BSKL 251C 
$2524. LIECUSANDS CF DELLARS) 7 1%) BSKL252C 
12 FCRMAT(1H1, 6HSET NOy F5e2y 2X_ L4HRATE SCHECULE » A5ey 2X, BSKL 25 3C 
SL4HASSUMPTICN SET sA6—92Xs5HDATE 22A6y 2X_y LOHTAXPAYERS 5A39 BSKL254C 
$2SH AGGREGATED INTC FAMILY UNITS//) BSKL255C 
13 FORMAT (LHC, 25X, 36HTCTAL ACCRUED INCOME BY INCOME CLASS) BSKL2551 
END BSKL 256C 
FUNCTION RMARG (TINCy» ITAX) RMRGCOOC 
RMRGCOLC 

FUNCTION TG COMPUTE MARGINAL PERSCNAL INCCME RATE RMRGCO2ZC 
ARGUMENTS RMRGCO3C 
TINC = TAXABLE INCOME RMRGCO4C 

1 TAX = TAX DEFINOR (1 = CURRENT, 2 = PRCPOSED) RMRGCO5C 
RMRGCO6C 

COMMON /FPAR / MARTAL, IWWIFE, DEPCH, ODEP RMRGCO7TC 


CEC IU ea GANG Wb IAC ILO GC CCI DL Maka neta LCG NGI EC SbCAUG) aCa eG UCT? 


$ 
$ 


$ 


$8 
39 


$ 
$ 
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COMMON /RSCHED/ BCTTOM(25), RATE(3¢25)_ RSCRED(10), NCLASS 

DIMENSION CURBOT(18)», CURRAT(18) 

DATA CURBOT / Oey 909e, 10006, 20002 30006, 4000.4 6000~-y 8000., 
1COCCes L2CCOe.s 150004, 25000-, 40000., 60000~-, 9D000~., 125000.~, 
225CCO-., 400000. / 

DATA CURRAT / 2.128% e159 o1Dy o2ly 0199 2224 226, 2309 2355 240, 
0459 050e 655 0609 0 65y ~70y «75, 280 / 

RMARG = OQ. 

IF (TINC) 98, 98, 99 

RETURN 

CONTINUE 

De (IVAX EQ.‘ 1) GO TC 102 

ae CEFAX SNES 2)” RETURN 

K = MARTAL + 1 

DG f0e i = 2, NCLASS 

TE (TING —- BOTTOM(I)) LOL, 100, 100 

CCNTINUE 

IT = NCLASS + 1 

RMARG = RATE (KyI-1) 

RETURN 

ue 103 F =*2, 18 

IF (TINC - CURBOT(I)) 104, 103, 103 

CONTINUE 

B= 15 

RMARG = CLRRAT(I-1) 

RETURN 

END 

SUBROLTINE CCOMPEF (KLAS, INC, CLOTAX» REFTAX, TOTINC, COMP, 

NKLAS» NINCKL» KLGIVN» GIVNAMy, SCURCE, ITYPE, ITAX, ITPOUT, 
ITENTRY) 


SUBROLTINE TO COMPLTE EFFECTIVE OLD ANC NEW TAX RATES ON A 
SPECIFIED COMPONENT CF INCOME FGR TAXPAYERS CLASSIFIED BY INCOME 
CLASS AND BY IMPGRTANCE OF THE CCRPONENT 

NUMBERED AS CF 21 CCT/66 


ARGUMENTS USED IN ACCUMULATICN ENTRY 


INCOME SOURCE TAX CALCULATICN CLASS 

INC = INCOME CLASS 

OLDTAX,REFTAX = TAX PAYMENTS UNDER CURRENT ANC PRCPOSEC SYSTEM 
TCTINC = TOTAL INCCME 

COMP = INCOME FRCM GIVEN SOURCE CCMPONENT 


KLAS = 


ARGUMENTS USED IN INITIALIZATION AND CUTPUT ENTRIES 


NUMBER OF INCCME SCURCE CLASSES 
= NUMBER OF INCCME CLASSES 


NKLAS = 
NINCKL 


ARGUMENTS USED IN CUTPLT ENTRY 


ENTRY POINTS 


IDENTIFIER OF GIVEN CLASS FOR TABLES BEING GENERATED 
(=O TR CEASS “IS °NCT A PROPER SUBSET OF ALL CANADT AR 
RESIDENT TAX UNITS) 

ALPHA DESCRIPTION OF GIVEN CLASSIFICATION 
INCOME COMPONENT DEFINOR (AS IN CCMSET) 
TAX CALCULATICN DEFINOR (AS IN COMSET) 
MONITOR CUTPLT TAPE NUMBER 
ALPHA DESCRIPTION OF SCURCE 

(DETERMINED BY IENTRY) 

INI TIALTZATICN 
ACCUMLLATE TCTALS 
PRINT SUMMARY TOTALS 


KLGIVN = 


GIVNAM = (A6) 
ITYPE = 
TTAX = 
[TPCUT = 
SOURCE = (A30) 
1 
2 


3 


ACASE, DATE(2)y 


ACCUM2, 


LP es 
TATINC, 


ITSET, SETNOG, 
TINCME 


COMMON /PROGID/ RCASE, 
DCUBLE PRECISICN ACCUMI1, 


RMRGCOS8C 
RMRGCO9C 
RMRGCLOC 
RMRGCLIC 
RMRGC12C 
RMRGC13C 
RMRGC14C 
RMRGC15C 
RMRGC1LEC 
RMRGC17C 
RMRGC18C 
RMRGC1IC 
RMRGC2CC 
RMRGC21C 
RMRGC22C 
RMRGC2 3C 
RMRGC24C 
RMRGC25C 
RMRGC26C 
RMRGC2 7C 
RMRGC28C 
RMRGC29C 
RMRGC3CC 
RMRGC31C 
RMRGC32C 
RMRGC33C 
RMRGC34C 


CMPFCOOC 
CMPFCOLC 
CMPFCO2C 
CMPFCO3C 
CMPFCO4C 
CMPFCO5C 
CMPFCO6C 
CMPFCOTC 
CMPFCO8C 
CMPFCO9C 
CMPFC1CC 
CMPFCIIC 
CMPFC12C 
CMPFC13C 
CMPFC1L4C 
CMPFC15C 
CMPFC1L6C 
CMPFCL7C 
CMPFC18C 
CHPFCI9OC 
CMPFOC2ZO0C 
CMPFC21C 
CMPFEC22C 
CUuPFC2 30 
CMPFC24C 
CMPFC25C 
CMPECZ6C 
CMPFC27C 
CMPFC28C 
CMPFC29C 
CMPFC3CC 


ITUDEFCMPFOSTC 


CMP ECs ec 


1CS 


1Cc0Q 


1c? 


108 
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COMMON /ACC3/ ACCLM1(2292097), ACCUM2(2292037)y TATINC(21,8), 
$ TINCME(22,21,8) 

COMMON /RSCHED/ BRAKET(25), RATE(3y 25), CRECS(10), NCLAS 
DIMENSION SUM1L(8)y, SLM2(8), ALPHA(2), SCURCE(5), CUT(8) 
DIMENSICN B(8), SUM3(21,8), SUM4(21,8) 

DATA B/0.C eC e059Col 260159062 9003900591 20/ y ALPHA/ 3ENOT » SHARES 


GO TO (10CC,y 2000, 3000), TENTRY 


—S +--+ ----==-- ENTRY POINT ------------------------------------ 


ENTRY TO INITIALIZE SUBROUTINE FOR NEW ACCUMULATICN 
CONTINLE 
PG’ Pit’ d L, NKLAS 


DO 11C J = Ly NINCKL 
DO 110 K=1,7 

ACCLM1 (19d 9K) =0 
ACCLM2(T9Jd9K)=0 
NINCPL = NINCKL + 1 


DO 10S IT = ly NKLAS 
DC 109 J = ly NINCPL 
DC 109 K = ls 8 
TINCME(I,JeK) = O12 
RETURN 


~---------------------- ENTRY POINT ------------------------------------ 


ENTRY TO ACCUMULATE TCTALS 

CONTINUE 

TF (TOTINC .LE.~-COCGOOOO00L ~AND. TCTINC .~GE.~ —-O00COQ000001) RETURN 
A=COMP/TOTINC 

IF (A .LT. O21) RETURN 

DC 10C I=l,7 

Pe TA CGES. BUI) 2ANDs Aeh is  Of1 F120) GO Tc 105 
CONTINUE 

I=7 

K=I 

TINCME(KLAS,INC,K)=CCMP+TINCME(KLAS,INC»K) 
ACCLML(KLAS » INC oK) =ACCUMLIKLASyINC,K)+CLDTAX 
ACCUM2(KLAS» INC »K)=ACCUM2 (KLAS,INC,K)+REFTAX 
RETURN 


~------------------ ENTRY POINT ------------------------------------ 


ENTRY TO PRINT OUT SUMMARY TABLES 

CONTINLE 

I = ITYPE 

TF LITAX «EQ. 3 .CROTTAX SEQ. 4)° 0 T San ITYPE +077 
DO 17C I1=1,2 

CP VCULT. SEQs. Zs ANDS© 1 PAX CEQ6. SIE CC Tt ye 

WRITE (ITPCUT,1) SE TNC eRCASE ,ACASE, CATE ,ALPHA(ITUDEF) 
CALL’ SUPREF U3 3 

Pe TAXA NE s6 318 Glo Te: 20s 

WRITE (ITPOUT,18) SCURCE 

GG TO 1C8 

IF (IY .EQ. 1) WRITE (ITPCUT,10) SOURCE 

IE CRI +MECe 27° WRITE TL POCT fi) SCURCE 

IF (ITAX EQ. 1). WRITE (ITPOUT,12) 

1G (CETAX 2EQs 4) WRITE fETPOCT 1 3) 

IF (ITAX .EQe 2) WRITE (I TPOUT,14) 

IF (KLGIVN ~NE~’ O) WRITE C(I TPOUT,21) GIVNAM, KLGIVN 
IF (KLGIVN .EQe O) WRITE (1 TPOUT,22) 

ie A io eEQs -2) WRITE (I TPCUT,2) 

WRITE (ITPOUT,3) SOURCE 

NINCPL=NINCKL41 

DC 169 J=lyNINCPL 

IF (TT -EQe- 1) TATINC(J,8) = O.2 


CMPFC3S 3G 
CMPFC34C 
CMPFC35¢ 
CMPFC36C 
CMPFO3 (CE 
CMPFCS#8C 
CMPFC39C 
CMPFC4OC 
CMPFC41C 
CMPE C4203 
CMPF C4 3C 
CMPFC44C 
CMPPC4S5¢ 
CMPFC46C 
CMPFC47C 
CMPFC48C 
CNPFC49e 
CMPFC50C 
CMPFC5I1C 
CMPFCO52C 
CMPFUS 36 
CMPFC54C 
CMPFC55C 
CMPFC56C 
CMPFC57C 
CMPFC58C 
CMPFC59C 
CMPFC6CC 
CMPFC61C 
CMPFC6ZE 
CMPFC63C 
CMPFC64C 
CMPFO65C 
CMPFC66C 
CMPFC67C 
CMPFC68C 
CMPFC69E 
CMPRCT Ge 
CMPFCTIC 
CMPFCT2C 
CMPFC73C 
CMPFCT4C 
CMPFCT75C 
CMPFCT76C 
CMPFOTIC 
CMPFC78C 
CMPFC79C 
CMPFC8OC 
CMPFC8I1C 
CMPFC82C 
CMPFC83C 
CMPFC84C 
CMPFC85C 
CMPFC860 
CMPFC87IC 
CMPFC88C 
CMPFC89C 
CMPFC90C 
CMPFC9OLC 
CMPFC92C 
CMPFC93C 
CMPFC94C 
CMPFC9SC 
CMPFC96C 


141 


169 
17C¢ 


174 
i175 


L7é 
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ACC1=C 

ACC2=C 

NC 15C K=1,7 
IF (It -EC. 1) 
SUM1(K)=0 
SUM2(K)=0 

IF (J EQ. NINCPL) GO TQ 115 

IF (IT .EQs. 1) TATINC (J eK)=TINCME(T op JoK) 

SUM1(K)=ACCUML(I,J,K) 

SUM2(K)=ACCUM2 (1 _9J9K) 

GO TO 140 

DO 117 M=LlyNINCKL 

IF (IT -EQe 1) TATINC(NINCPL,K)=TINCME(T,M,K)+TATINC(NINCPL,K) 
SUM1(K)=SUM1L(K)+ACCUM1L(1I,M,K) 

SUM2 (K )=SUM2(K)+ACCUM2(ToMeK) 

ACC1=ACCIL+SUM1I(K) 

ACC2=ACC2+SUM2(K) 

IF (IT «EQ. 1) TATINC(Jy8)=TATINGC( Je KIFTATINC(J,8) 

GO TO (141,147),I1 


TATINC(J9K) = O-% 


IF (SUM1(K) .NE. C.0) GO TO 145 
OUT(K) = $$9999.99 
IF (SUM2(K) «LT. Co) CUT(K) = -999999.99 


RoUM2” =) SUM2 (KIVPECOS ANS 

IF (KSUM2 .EQ- OF OUT(K) = 0. 
GO YO 150 
OUT(K)=(SUM2(K)/SUPM1(K) 
se 10-150 
OUT(K)=(SULM2(K)—SUM1(K))/1000. 
CONTINUE 

IF (ITF .EQ. 2) 
OG PSK? 154)°7 
SUM3(J5K) SUM1(K) 
SUM4(J9K) SUM2 (K) 
SUM2(J,8) ACC1 
SUM4(J,8) ACC2 

IF (ACC1 .NE~ 0.0) 
WTcey = 999999.99 
Te CACCZS SUT 6° OG") 
IF (ACC2 .EQ. Ce) 
Gusto’ "160 
OLT(8)=(ACC2/ACC1 -1.)*100. 

GO TO 160 

OUT(8)=(ACC2-ACC1)/1CC00. 

IF (J eEG. NINCPL) GC TO 165 

TF (11 -ECQ. 1) WRITE (65 4) Je (OUT(K)» K=1,8) 
IF (11 .EQ. 2) WRITE (6,5 6) Jy (OCUT(K), 
GO “TO -169 

IF (11 .E€C. 1) 
Pyrtano ees 2) 
CONTINUE 
CONTINUE 

IF (ITAX .NE- 1) 
WRITE (ITPCUT,1) 
CALL -SUPREF(' 21) 
WRITE (ITPOGUT,15) 
IF (KLGIVN .NE. C) 
IF (KLGIVN .EQ. 0) 
WRITE (ITPOUTs2) 
WRITE (ITPOUT,3) 
DO 175 J=lyNINCKL 
DO 174 K = ly, 8 
OUT(K) = TATINC(JsK)/1000. 

WRITE (ITPOUT, 6) Jy (OQUT(K)», K = ly 8) 
MG °L76 °K. = “1, +8 

OUT(K) = TATINC(NINCPL,K)/1000. 


—l. )*100. 


GC TC 156 


GC TO 155 


OUT(8) 
OUT(8) 


-999999.99 
0. 


nou 


WRITE (6, 5) 
WRITE (6,5 7) 


(CUT(K)», K 
(CUT(K), K 


GC TG: 80 


SETNO, RCASE, ACASE, DATE, ALPHA(ITUDEF) 
SCURCE 
WRITE (I TPOUT,21) GIVNAM, KLGIVN 


WRITE (IT TPOQUT,22) 


SCURCE 


CMPFCITC 
CMPFC98C 
CMPFC99SC 
CMPFLOOC 
CMPFI1OLC 
CMPFLO2C 
CMPF 10 3C 
CMPF104C 
CMPF105C 
CMPF106C 
CMPF107C 
CMPF108C 
CMPFLO9C 
CMPF11CC 
CMPF111C 
CMPF112C 
CMPF113C 
CMPF114C 
CMPF115C 
CMPF116C 
CMPF11L7C 
CMPF118C 
CMPF119C 
CMPF12CC 
CMPF1i21C 
CMPF122C 
CMPF 12 3C 
CMPF124C 
CMPF125C 
CMPF126C 
GCMPFIZ7C 
CMPF128C 
CMPF129C 
CMPF130C 
CMPF131C 
CMPF132C 
CMPF133C 
CMPF134C 
CMPF 135C 
CMPF136C 
CMPF137C 
CMPF 138C 
CMPF1390 
CMPF140C 
CMPF141C 
CMPF142C 
CMPF143C 
CMPF144C 
CMPF145C 
CMPF 146C 
CMPF147C 
CMPF148C 
CMPF149C 
CMPF150C 
CMPF151C 
GCMPEIS2C 
CMPF 15 3C 
CMPF154C 
CMPF155C 
CMPF 156C 
CMPF157C 
CMPF158C 
CMPF159C 
CMPF160C 
CMPF161C 


168 


(CUT (K) +, K = l» 8) 
ITAX eEQ. 4) RETURN 


WRITE (ITPOUT, 7) 
18C IF (ITAX .EQ. 2 .CR. 
DOP 18? Tio h5F 2 
WRITE (ITPOUTs1) 
GALL  SUPREE(*3.) 
MET AITAX, CEQS5 3) 
MB CPI SEG. L) 
be GRICSECl + 23 
6G T0 182 
POLVEER Ci sECse Ry" WRINE 
PECL MEGR P2388 WRETE 
(KLGIVN .NE~ C) WRITE 
IF (KLGIVN .EC.e. O) WRITE 
WRITE (ITPCUT,3) SCURCE 
DC 187 J = Ll», NINCPL 
CGULTOELULEAsei85), 1! 
L8aqDG 1840 K. 2, 45°S 
OLUT(K) = C. 


SETNC» RCASEs ACASEs, DATE, 
GO: TOs Psi 
WRITE (ITPOUT,:19) SCURCE 


WRITE (LTPOUT,20) SCURCE 


(ITPQUT,16) SOURCE 

(ITPCUT,17) SCURCE 

(I TPOUT,»21) GIVNAM, KLGIVN 
(I TPOQUT,22) 


ALPHA(ITUDEF) 


IF (TATINC(J,K) «GT. Of) OUT(K) = SUM3 (J, KI/STATINCG(JyK) 
184 CONTINLE 

IF (J eL Te. NINCPL) WRITE (ITPCUT,8) Je (OUT(K)s K = ly 8) 

IF (J -EQ. NINCPL) WRITE (I TPCUT,9) (CUT(K), K = ly, 8) 

GO TO 187 
LBSqDG 18é¢ K = 1, 8 

OUT(K) = C. 

IF (TATINC( JK) eGTe Co) QUT(K) = SUM4(J,KI/TATINC (JK) 
186 CONTINLE 

IF (J «LT. NINCPL) WRITE (ITPCUT,8) Je (OUT(K), K = ly 8) 

IF (J EQ. NINCPL) WRITE (ITPCUT,9) (OUT(K), K = ls 8) 
187 CONTINUE 

RETURN 


CMPF 162C 
CMPF 163C 
CMPF 164C 
CMPF165C 
CMPF166C 
CMPF 167C 
CMPF168C 
CMPF169C 
CMPF17CC 
CMPF171C 
CMPFIiTze 
CMPF173C 
CMPF174C 
CMPF175C 
CMPF176C 
CMPF177C 
CMPF178C 
CMPFL79C 
CMPF180C 
CMPF181C 
CMPF182C 
CMPF183C 
CMPF184C 
CMPF185C 
CMPF186C 
CMPFI187C 
CMPF 188C 
CMPF189C 
CMPF190C 
CMPF191C 
CMPF192C 
CMPF193C 


1 FCRMATC( IHL, 7HSET NCopF5e.292X,14HRATE SCHECULE »A592Xy14HASSUMPT LONCMPFI194C 


$ SETyLXsAbe2Xes5HDATE y2A6y2Xy,LOHTAXPAYERS 


9A3y29H AGGREGATED INTO CMPF195C 


$FAMILY UNITS //) CMPF196C 

2 FGRMAT (1X, 22H( THOUSANDS CF DOLLARS)) CMPF197C 
3 FCRMAT (1X,6HINCOME »26X,26HPRCPOCRTICN CF INCCME FRCM 4, 5A6/2X, CMPF198C 
$ SECLASS 3 5X9 3HO-5y10X_4H5—-10 py LOX, SHLO—-1549X_,5H15—-20y 9X, CMPFI99G 

$ 5H20-3059Xs5H30-50 49X 9 6H50-10098X pSHTOTAL// ) CMPF200C 

4 FCRMAT (1X, [4, Fl2.2, 7( F142 )) CMPF201C 
BE REGRMAT< 67-7" 1 Xe-SHIGRART PULSZ OUP ise 2 CMPF202C 
6 FORMAT (1X, 14, Fl2-0, 7(F14.0)) CMPF 20 3€ 
t FORMAT (// 1Xy SHTCTALs, F1l.Oy 7(F14.0)) CMPF204C 
@ FORMAT (1X, 14, Fl2.3, T(F14.3)) CMPF205C 
G FORMAT (// 1X, SHTCTAL, Fll.3, 7(F14.3)) CMPFZ06E 
1C FORMAT (1X, 39HPERCENT CHANGE IN TAXES GN INCOME FROM » 5A6) CMPF 2076 
Ll FORMAT (1X, 39H DCLLAR CHANGE IN TAXES CN INCCME FROM » 5A6) CMPF208C 
12 FORMAT (1X», 66H(CALCULATICN BASED CN AVERAGE NEW AND OLD TAX RATESCMPF209C 
$ CN ALL INCOME)) CMPF210C 
13 FGRMAT (1X», SCHI(CALCULATICN BASED CN ALL INCOME FRCM THIS SOURCE ,CMPF2ZIIC 
$  15HBEING MARGINAL)) CMPF 21 2C 
14 FCRMAT (1LX»y SCH(CALCULATICN BASEC CN PRCRATICN CF ALL CHANGES IN ,CMPF213C 
$ 4+TAX)) CMPF 214C 
15 FORMAT (1X_, L2HINCCME FROM , 5A6) CMPFZISE 
1é FCRMAT (1X, SCHCURRENT AVERAGE MARGINAL TAX RATES CN INCOME FROM ,CMPF216C 
$u55AG) GMPF2ZD EE 
17 FORMAT (1X SLHPROPCSED AVERAGE MARGINAL TAX RATES ON INCOME FROM CMPF218C 
$6 9546) CMPF219C 
1&8 FORMAT (1X, S2HPERCENT CHANGE IN MARGINAL TAX RATES ON INCOME FROMCMPF 22CC 
Se S5AG) CMPF221C 
19 FORMAT (1X, 4LHCURRENT AVERAGE TAX RATES CN INCGME FROM , 5A6) CMPF222C 
20 FORMAT (1Xy 42HPRCPOSED AVERAGE TAX RATES ON INCCME FROM » 5A6) CMPE2Z23C€ 
2ZIGEGRMAT CUXsTTTHFOR? TAXPAYERS IN » AG, 6H CLASS, £23) CMPF224C 
22 FORMAT (1X, 35HFOR AL! CANADIAN RESIDENT TAXPAYERS) CMPE225C€ 


CGE ONO OG. CO OY Gui GG Ge GG i a GG CeCe Ga Con Godan nCre 


AR 


IN 


TA 


$ 


$ 


$ 
$ 


$ 
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END CMPF 22 6C 
SUBROUTINE COMSET (ITYPE, ITAX» INC) CMSTCOOCC 
CMSTCOLC 

SUBROUTINE TO SET UP CCMPEF ACCUMULATICN FOR CIFFERENT CMSTCO2C 
INCOME COMPCNENTS CMSTCO3C 
GUMENTS CMSTCO4C 
ITYPE = INCOME CCMPCNENT DEFINCR CMSTCO5C 
I TAX = TAX CALCULATION DEFINOR CMSTCO6C 
INC = INCOME CLASS CMSTCO7C 
COME COMPCNENT DEFINCR VALLES CMSTCOBC 
1 = INCOME FROM WAGES AND SALARIES CMSTCOSC 
2 = INCOME FROM SELF-EMPLOYMENT CMSTC1OO 
3 = INCCME FROM FARMING AND FISHING CMSTC1I1C 
4 = INCCME FROM UNINCCRPORATED BUSINESS PROFITS CMSTC12C 
5 = INCOME FROM CCRPCRATE PROFITS CMSTC13C 
6 = INCOME CURRENTLY REPORTED FROM FIXED-INCOME SECURITIES CMSTC14C 
7 = INCGME FROM OTHER INVESTMENT SCURCES CMSTC1L5C 
8 = TRANSFER PAYMENTS AND MISCELLANEQUS INCCME CMSTC1EC 
9 = CORPORATE INCCME FROM LARGE COMPANIES NCT IN SPECIAL CMSTC17C 
INDUSTRIES CMSTC18C 

1C = CORPORATE INCCME FROM SMALL COMPANIES CMSTC1LSIC 
11 = CORPORATE INCCME FROM SPECIAL INDUSTRIES CMSTC2CC 
NOTE THAT COMPONENTS 1 TO 8 ARE MUTUALLY EXCLUSIVE, AS ARE 9 TO LICMSTC21C 
X CALCULATION DEFINOR CMSTC22C 
1 = CALCULATIONS BASED ON AVERAGE TAX RATES ON ALL INCOME CMSTC2 3C 
2 = CALCULATION ASSUFMING TAX CHANGE TC BE PRO-RATEC OVER COMPONENTCMSTC24C 
A LA REVTAB CMSTC25C 

3 = CALCULATION CF AVERAGE MARGINAL TAX RATES CMSTC26C 
4 = CALCULATICN ASSUMING INCCME FRCM GIVEN SCURCE TO BE PURELY CMSTC27C 
MARGINAL CMSTC28AC 
CMSTC29C 

CCMMON /PARAM/ ASS(200)5 ALLCW(50), ITUDEF, IDATAy IBASISs CMSTC3CC 
TORDER (7), ISPRES(25,2), NSUP, IMINTP, ITPOUT, ITDATA CMSTC31C 
COMMON /DATA/ KLAS(1C)», SUM(50), BASE(40), CRED(4C), CHSTC32C 
REFTAX(5), OLDPTX(5), CORTAX(5), GIFTAX(5) CMSTC33C 
COMMON /ADJUST/ DELTA(10), OTHER(30),5 UNTAXD(20) CMSTC34C 
COMMON /SWITCH/ ISW(25) CMSTC35C 
DIMENSION TCRED(2), S(5) CMSTC36C 
CMSTOS7C 

INDEX = ITYPE CMSTC38C 
Le CLITAX .EQ. 3 -OR. TTAX ~EQ. 4) INDEX = ITYPE +,11 CMSTC39C 
XN = SUM(1) CMSTC4CC 
XMPTNS = BASE(1) + BASE(2) + BASE(26) + BASE(29) + BASE(30) + CMSTC41C 
BASE (332 CMSTC42C 
DEDGLD = SUM(7)*1C0. + SUM(10) + SUM(15) + SUM(36) + SUM(37) + CMSTC43C 
SUM(38) + SUM(39) - DELTA(L) — DELTA(2) + SUM(5)¥*500. - DELTA(4)CMSTC44C 
DEONEW = DEDOLD = BASE(ZI)*— BASE(22) -— BASE(23) -— BASE(24))- CMSTC45C 
BASE(25) CMSTC46C 
TOTCLD = OLDPTX(1) + XMPTNS + DEDCLO CMSTC4&7C 
TOTNEW = REFTAX(1) + DEDNENW CMSTC48C 
OLDINC = GLDPTX(1) + XMPTNS + DEDOLO —- DECNEW CMSTC49C 
SOReOCL) = tREPTAX (29 — CREDIST =" SUMISI) U7 XK CMSTC500 
TCRED(2) = Ce CMST CS TC 
GRTNEW = XN*¥PROTAX(GLDINC/XNy, TCRED, 0) CMSTC52C 
AVREVR = C. CMSTC53C 
IF (TOTOLD ~GT.e O-.) AVREVR = GRINEW/TCTOLD CMSTC54G6 
TRDEL = REFTAX(3) + REFTAX(4) + CRED(3) + SUM(31) - GRTNEW CMSTC55C 
AVDELR = C. CMSTC56C 
IF (TOTNEW - TOTOLD .GT. O-) AVDELR = TRDEL/(TOTNEW - TOTOLD) ECMSTOSTC 
AVOLDR = C. CMSTC58C 


Aaa 


CRICISCD 


IF (TOTOLD .GT. O.) AVOLDR = 
AVNEWR = Ce 

TE IODINE, wa lees 
SbAVNEWR (REFTAX(3)+REFTAX(4 
COMUNT Com 

TOTUNT Ce 

DD Sou = ls. 20 

TOTUNT = TOTUNT + UNTAXD(1) 
REFCRO = REFTAX(2) - CRED(3) 
GO TO(103, 1045 105, 106, 10 
SO 10. (LOC is, LOLs) AC L26,808 
OLD = AVOLDR¥OQLNDCMP + CTHERS 
REF = AVNEWR*¥COMP - CREDIT 
GO T0 102 
101 OLD = OLDOPTX(3) -— XN¥*¥CLRTAX( 
$ CLDPTX(2)/XN) + OTHERS 
TCRED(1) = (REFCRD + CREDIT) 
TCRED(2) = Ce 
REF = REFTAX(3) 
* ICRED, C) 

GC TO 102 

OLD = AVOLCR*OLDCMP + GTHERS 
REF = AVREVR*CLDCMP + AVDELR 
GO TO 1C2 

RMOLD = RMARG (OLOPTX(1)/XN, 
RMNEW = RMARG (REFTAX(L)/XN, 
OMART = OTHERS 

LE* ATT YORE See p>) SANDS LYE 
OMART = RATIOL¥*(CCRITAX(1) + 
PE LLLULYPE ato, £0)=- UMAR) = 
OMART = OMART —- RATIC1*0.2*S 
OLD = RMOLD*OLOCMP 
IF (OLDPTX(3) .LE. 
OLD = OLD + CMART 
REF = RMNEW*COMP - CREDIT 

mit Poke Fgicenk 0 ose maa) ore a re a 
IF (REFTAX(3) + REFTAX(4) eL 
te CISWCS ). oes 10) Solo aL 
IF (CITAX eNEs 3) GU TL 1020 
IF (ITYPE .GT.e. 8 «GR. ITYPE 
$ RATIOL*(BASE(3) + BASE(35) 
$ RATIGL*(UNTAXD(1) + UNTAXD 
$ 
$ 


a3 


1CcCc 
1001 


+ REFTAX(4) 


1011 


1012 


1013 


O-) OLD 


RATICI*(BASE(5) + UNTAXD(6 
RATICL¥*¥BASE(5), CLD, REF, 
102C COMP = COMP + COMUNT 
CCMP = COMP + COMLUNT 
TCTNEW = TOTNEW + TOTUNT 
1021 CALL COMPEF (INDEX, INC, QLD 
$ Ov Cy Oev Sy ITYPE, ITAX, 
RETURN 


EMPLOYMENT INCOME 


103 OLDCMP, = SUM(16), — SUM(12) 
COMP. .=: GLOCMP .« BASE LIS J — 0 
+ ‘at BASECI4) * BASELLTOI SEA 
OTHERS = Ce 
CREDIT = CRED(3) 
GO TO 100 


INCCME FRCM SELF-EMPLOYMENT 


104 OLDCMP = 
CCMP = 


SUM(18). + SUFM(19) 
OLOCMP + OTHER(6) 


170 


(CLOPTX(3) + OLCPTX(2))/TOTCLD 


)+CREC(3)+SUM(31))/TOTNEW 


- SUM(31) 


T, LOB, 109% 
), ITAX 


110, lll» 1Ll2y 


(CLOPTX(1)-OLDOCMP)/XN, 
XN 


— XN*¥PROTAX((REFTAX(1)-COMP)/XN,y 


eUCCMP) = CLUGrP)” — CREDLE 
i} 

2) 

al ey oe ee 1S 
CCRTAX(2)) 

(ASS (83)/0.50)*CMART 
UM(25) 


= 0. 


Ee 
et 


O.) REF = O- 


EQ. 5) CALL CSITAB CINC, ITYPE-8, 
+ SUM(25)), CBAS, RATIOL*UNTAXD(5), 
(4)) + ADDUNT, 

)), CLOCMP, CCMP - RATIO1L*BASE(5), 

EXTRA) 


e REF» 
Or 2) 


TOTNEW, CCMP, O» 


THER (6) 
Silas 


— CUE R ut. Cast b5.) 


(COMMISSICN AND PROFESSIONAL ) 


CMSTC59C 
CMSTC60C 
CMSTC61C 
CMSTC62C 
CMSTC63c 
CMSTC64C 
CMSTC65C 
CMSTC66C 
CMSTC67C 


113),ITTYPECMSTC68C 


CMSTC69C 
CMSTCTCe 
CMST Cis 
CMSTC72C 
CMSTC73C 
CMSTC74C 
CMSTC75C 
CMSTC76C 
CMSTCT ES 
CMSTC78C 
CMSTC79C 
CMSTC8CC 
CMSTC81C 
CMSTC8ZE 
CMSTOC83C 
CMSTC84C 
CMSTC85C 
CMSTC86C 
CMST Care 
CMSTC88C 
CMSTC89C 
CMSTCIOC 
CMST CIE 
CMSTC92C 
CMSTO93C 
CMSTC94C 
CMSTC9SG 
CMSTC9I6C 
CMSTC9I7C 
CMS1C9 Ee 
CMSTC99C 
CMST1000 
CMST101C 
CMST102C 
CMST103C 
CMST104C 
CMST105C 
CMST106C 
CMST107C 
CMST1LO8C 
CMST109C 
CMST110C 
CMSTILIC 
CMST112C 
CAST 1L26 
CMST114¢ 
CMST115C 
CMST116C 
CMST1L7C 
CMST118C 
CMST119C 
CMST12CC 
CMST121C 
CMST122C 


(elo ge (Sm aan 


aan 


Gly 


Pil RR 


Sd: Sk 


Bie we we 


OTHERS = C. 
CREDIT = Ce 
GG TO 1C0O 


FARMING ANO FISHING INCOME 


105 OLOCMP = SUM(20) 
COMP = SUM(20) 
OTHERS = Ce 
CREDIT = C. 

GO TO 100 


Ly 


UNINCCRPORATED BUSINESS PRCFITS 


1Cé OLDCMP = SUM(17) - SUM(24) 
COMP = OLDCMP + BASE(7) 


QTHERS = C. 
CRECIT = Ce 
COMLNT = 

GC TO 1¢€0 


CORPORATE SOURCE INCCME 


107 OLOCMP = SUM{(25) - BASE(6) 


CGMP = SUM(25) + BASE(3) + BASE(4) + BASE(5) + BASE(34) 


+ BASE(8) + BASE(9) 


OTHERS = CCRTAX(1) -— SUM(30) 
CREOIT = REFTAX(5) - REFTAX(4) 
RATIO = 1. 

COMUNT = 


$6 UNTAXD(5) + UNTAXD(6) 


ADDUNT = UNTAXD(2) + UNTAXD(3) 
EXTRA = OTHER(13)¥* (1. —- RMNEW) 


GCG TO 100 


+ OTHER(9) 


UNTAXD(7) + UNTAXD(8) + UNTAXD(9) 


UNTAXD(1) + UNTAXD(2) + UNTAXO(3) + UNTAXCOI4) + 


FIXED-INCOME INVESTMENT INCOME CURRENTLY REPCRTED 


1C&@ OLDCMP = SLM(26) 
IF (OLDCMP .LT. O.-) 
CCMP = OCLOCMP 
OTHERS = Ce 
OpECTT = C. 
GC TO 100 


+ SUM(27) 


(SUM(29) 


CLDCMP = 0. 


OTHER CANADIAN INVESTMENT INCCME 


109 OLDCMP = SUM(26) + SUM(27) 
IF (OLDCMP .GT. 0.) 
QLOCMP = CLDCMP + SUM(21) 


(SUM{(29) 


CLDOCMP = QO. 


- BASE(6)) 


- BASE(6)) 


COMP = OLDCMP + BASE(10) + BASE(11) + BASE(12) + BASE(32) 


OTHERS = C. 
CREDIT = C. 


CCMLNT = UNTAXD(10) + UNTAXD(11) 


GC TO 100 


TRANSFER PAYMENTS AND MISCELLANECUS INCCME 


110 OLCCMP = SUM(32) + SUM(33) + SUM(34) + DELTA(3) 


COMP = OLDCMP + BASE(18) 
OTHERS = GIFTAX(1) 
CREDIT = Ce 

GC TO 1C0 


CCRPGRATE INCOME FROM LARGE CCMPANIES NCT IN SPECIAL INDUSTRIES 


Prt eALIOY = ASSTTTISASS (2) 


+ BASE(19) 


+ BASE( 26) 


+ BASE(28) 


CMST123C 
CMST124C 
CMST125C 
CMST126C 
CMST127C 
CMSTIZ6C 
CMST129C 
CMST130C 
CMST 1310 
CMST132C 
CMST133C 
CMST134C 
CMST135C 
CMST136C 
CMST137C 
CMST138C 
CMST139C 
CMST140C 
CMST141C 
CMST142C 
CMST143C 
CMST144C 
CMST145C 
CMS11466 


+ BASE(35)CMST147C 


CMST148C 
CMST149C 
CMST150C 
CMSTI51C 
CMST152C 
CMSTIS3¢€ 
CMST154C 
CMST155C 
CMST156C 
CMST157C 
CMST158C 
CMST159C 
CMST1600 
CMST1L61C 
CMST162C 
CMST163C 
CMST164C 
CMST165C 
CMST166C 
CMST167C 
CMST168C 
CMST169C 
CMST170C 
CMSELLLIC 
CMST172C 
CMS TIT 3c 
CMST174C 
CMST175C 
CMST176C 
CMST177C 
CMST178C 
CMST179C 
CMST18CC 
CMST181C 
CMST182C 
CMST183C 
CMST184C 
CMST185C 
CMST186C 
CMST187C 


Cor Con) 


Aan 


Corce) 


oO 


: Wy es 


RATIO2 = ASS(80)/ASS(4) 
QeEAS = UNTAXD(3) 
SBEPLs = Wis 
ACDLNT = C. 
ADDTAX = C.5*UNTAXD(3) 
EXTRA = OQ. 
LUT Br BASEL CO, Ee 0.) 7 GO TO. fiiz 
CHECK = BASE(6) - (ASS(7T9)/ASS(2))*¥SUM(25) 
Pre AGHECKe@eLas90.) ~ CHECK se) 0. 
RAT LOI: =| RATIOI*{os. —| CHECKS UM(25))) 
IF CSOEPL- 2G. 0.) ~ RATIO =, RAGIC): + CHECK/SUM(25) 
RATIO2 = RATIO2*(1. -— CHECK/SUM(25)) 
re (SDEPL wGiaerns ) BATAO2 = RATIGZ + CHECK SUMIZ3) 
1112 COMP = RATIOI*(BASE(3) + BASE(5) + BASE(35) + SUM(25)) + OBAS 
OLDCMP = RATIC1I*SUM(25) —- SDEPL 
OTHERS = RATIO2¥*CGRTAX(1) - RATIC1L*SUM (30) 
CCMUNT = RATIOL¥(UNTAXD(1L) + UNTAXD(4) + UNTAXC(5) + 
$ UNTAXD(E)) + ADDUNT 
CREDIT = (RATIOL*¥(CORTAX(1) + CORTAX(2)) + ADCTAX)* 
$ ((REFTAX(5) - REFTAX(4))/REFTAX(4)) 
GO TO 100 
CORPORATE INCOME FRCM SMALL CCMPANIES 
112 RATIOL = ASS(78)/ASS(2) 
RATIO2 = ASS(81)/ASS(4) 
OBAS = -UNTAXD(3) 
SBEPLT 2-10. 
ACDUNT = UNTAXD(3) 
ADDTAX = -C.~5¥*UNTAXD(3) 
EXTRA = O. 
GO TO debi 
CORPORATE INCOME FROM SPECIAL INDUSTRIES 
Lis RATIO = ASS (79) /ASS(2) 
RATIO2 = ASS(8B2)/ASS(4) 
OBAS = BASE(4) + BASE(34) 
ACDTAX = CORTAX(3) 
EXTRA = OTHER(13)*(1. - RMNEW) 
SDEPL = BASE(6) 
ACDUNT = UNTAXD(2) 
GO TO 1111 
END 
SUBROUTINE CSITAB (INKy ITYP, VAR1L, VAR2s VAR3y VAR4s VARS, 
$ VART, VAR8, OLD, REF, EXTRA, ITPCUT, IENTRY) 
DIMENSION VAR{I9), TOT(9), ACC(2054911) 
GO TO (10Cy, 200, 3CC), IENTRY 


100 CONTINUE 


DG 101 INC = 1, 20 


VAR 6, 


CMST188C 
CMST189C 
CMST19CC 
CMST191C 
CMST192C 
CMST193C 
CMST194C 
CMST195C 
CMST196C 
CMST197C 
CMST198C 
CMST 199 
CMST20CC 
CMST201C 
CMST202C 
CMST 2039 
CMST204C 
CMS1T 2056 
CMST206C 
CMST207C 
CMST208C 
CMST209C 
CMST21CC 
CMST211€ 
CMST212C 
CMST 2196 
CMST214C 
CMST215¢ 
CMST216C 
CMST217C 
CMST218C 
CMST 2095 
CMST 220C 
CMST221C 
CMST222C€ 
CMST 22 3C 
CMST224C 
CMST225C 
CMST226C 
CMST227C 
CMST228C 
CMST229C€ 
CMST230C 
CMST2310 


CSTBOOOC 
CSTBCO1C 
CSTBCO2C 
CSTBCO 30 
CSTBCO4C 
CSTBCOSC 
CSTBCO6C 
CSTBCO7TC 
CSTBCO8C 
CSTBCOSC 


Gye? 


ol ee) 


101 


202 


203 


3CC¢ 


3001 


301 


3011 
302 
303 


304 


ay i) 


DC 101 KIND = ly» 4 
DC 101 J = l, ll 
ACCCINCsKIND,J) = O- 
RETURN 


DATA STORAGE ENTRY 


CONTINLE 

INC = INK 

KINC = ITYP 

IF (KIND.EQ. -3) KIND = 4 
VAR(1) = VARI 


VAR(2) = VAR2 
VAR(3) = VAR3 
VAR(4) = VAR4 
VAR(5) = VARS5 
VAR(6) = VARG6 
VAR(7) = VART 
VAR(8) = VARB 


DG 202 J = ly 8 

ACCC INC sKINDyJ) = ACC(INC,KINC,J) + VAR(J) 
ACC(INC,KIND,9) = ACC(INC,KIND,9) + CLO 
ACC( INC sKIND 510) ACC(INC,KIND,10) + REF 
ACC(INC,KIND,11) ACC(INC,KIND,11) + EXTRA 
RETURN 


ow 


TABLE PRINTOUT 


CONTINLE 

ITAB = 1 

NC 303 KIND = ly 4 

WRITE (ITPOUT,12) ITABy KIND 

DG 3001.5 =.h,.8 

TOT(J) = Ce 

IF (KIND -EQ- 1) WRITE CITPOUT,1) 
IF (KINO «EQ. 2) WRITE (ITPCUT,2) 
IF (KIND ~-EQ. 3) WRITE (ITTPOULT,3) 
IF (KIND .EQ.e 4) WRITE (ITPOLT,4) 
WRITE (ITPOUT,5) 

WRITE (ITPCUT,6) 

DO 362 INC = le 2C 


OC 301 J = ly 5 

VAR(J) = ACC(INC,KIND,J)/1000000. 

TOT(J) = TOT(J) + VAR(J) 

VAR(6) = VAR(1) + VAR(2) + VAR(3) + VAR(4) + VARI(5) 
TOT(6) = TOT(6) + VAR(6) 


DO 3011 J = 7% 9 

VAR(J) = ACC(INCsKINDsJ—-1)/1000000. 
TOT(J) = TOT(J) + VAR(J) 

WRITE (ITPOUT,8) INC, (VAR( J), 
WRITE (ITPOQUT,9) (TOT( J), 
ITAB = 2 

DO 308 KIND = ly» 4 

WRITE (ITPGUT,12) ITABs KIND 
DO 304 J = l» 8 

TOT(J) = Ce 

IF (KIND .EQ. 1) WRITE (ITPOUT,s1) 
IF (KIND -EQe- 2) WRITE (I TPOUT,2) 
IF (KIND -EQ. 3) WRITE (I TPOLT,3) 
IF (KIND -EQ.s 4) WRITE (ITPOUT,4) 
WRITE (ITPCUT,7) 

DO 306 INC = ly» 20 


VAR(1) = ACC(INC,KIND, 9) 
VAR(2) = ACCCINC,KIND,10) 
VAR(3) = ACC(INC,KIND,11) 


CST8C1LOO 
CSTBCLIC 
CSTBCL2C 
CS518C13¢ 
CSTBCLA4C 
CSTBC15C 
CSTBC16C 
CSTBCLIC 
CSTBC18C 
CSTBCLSIC 
CSTBC2O0C 
CSTBC21C 
CSAIBG22E 
CST8C23C 
CSTBC24C 
CSTBC25C 
CSTBC26C 
CSTBC27C 
CSTBC28C 
CSTBC29C 
CSTBC3CC 
CSTBC31C 
CSTBC32C 
CSTBC33C 
CSTBC34C 
CSTBO35C 
CSTBC36C 
CSiIBEITE 
CSTBC38C 
CSTBC39C 
CSTBC40C 
CSTBC41C 
CSTBC42C 
CSTBC43C 
CSTBC44C 
CSTBC45C 
CSTBC46C 
CSTB04 7C 
CSTBC48C 
CSTBC49C 
CSTBCS5OC 
CSTBC5SIC 
GSih C526 
CSTBC53C 
CSTRC54C 
CSTBC55C 
CSTBC56C 
CSTBCS57C 
CSTBC58C 
CSTBC59C 
CSTBC6O0C 
CSTBC61C 
CSTBC62C 
CSTBC63C 
CSTBC64C 
CSTBC65C 
CSTBC66C 
CSTBC67C 
CSTBO68C 
CSTBC69C 
CSTBC7CC 
CSTBCT1C 
CSTBC72C 
ESTBCT3AC 
CSTBC74C 


CUSACK OW COD. CUE 
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VAR(4) = (VAR{2) - VAR(1)) - VAR(3) CSTBC75C 
TOTNET = -VAR(1) CSTBCT6C 

00 2041 J = Ll» 5 CSTBCTIC 
3041 TOTNET = TOTNET + ACC(INCsKINCD,J) CSTBC78&C 
VAR(5) = (CCTOTNET + VAR(L) - VAR{(2) + VAR(3))/TOTNET) - 1.2)*100. CSIBO79C 
TOTAL = TOTNET + VAR(1) CSTBC8CC 

Do. 307 J, > 13. 4 CSTBC81C 
TOT(J) = TOT(J) + VARCJ) CSTBCB2C 
305 VAR(J) = VAR(J)/TCTAL CSTBC83C 
TOT(5) = TOT(5) + TOTAL CSTBC84C 
306 WRITE CITPCUT,10) INC, (VAR( J), J = le 5) CSTBC85C 
TCTNET = TOT(5) - TCT(1) CSTBC86C 
VAR(4) = (7TOTI2), 7. TOIL =. 960 13) )7 76115) CSTBC87C 
VAR(5) = (UC TOTNET + TOT(L) -. TGT(2) + TOT(3))/TOTNET) 1.)*100. CSTBC88C 
e200 J 2.14.5 CSTBC89C 
307 VAR(J) = TOT(J)/TCT(5) CSTBC9IOC 
WRITE (ITPOUT,11) (VAR(J), J = ly 5) CSTBCIIC 
308 CONTINLE CSTBC92C 
RETURN CSTBC9I3C 
CSTBC9I4C 

1 FORMAT (3CX»y 46HFRCM LARGE CCMPANIES NOT IN SPECIAL INDUSTRIES) CSTBC9I5C 
2 FORMAT (3CX»s 46HFROM SMALL CCMPANIES NCT IN SPECIAL INDUSTRIES) CSTBCIEC 
3 FORMAT (35X, 36HFROGM CCMPANIES IN SPECIAL INDUSTRIES) CSTBCITC 
4 FORMAT (44X, 1L8HFRCM ALL COMPANTES) CSTBC9IBC 
5 FORMAT (43X, 21H(MILLICGNS CF DOLLARS)) CSTBC9I9C 
G FORBAT CiHOQ,s 9X, 44h------—- BEFGRE=TAX, CORPORATE ENCUME =-—=-=<——— CSTB1000 
Sea eekt SSRULVIDENDS: J) 10X5 23h se == ACCA e C= » DX»y ZHNOT, CSTB1LOIC 

$ 3CX_, SHTICTAL, 6X, GDHCURRENTLY», 3X, 26H-INCCME TAXED AT PERSONAL-CSTB102C 

6 / 23X,y SHADDED TC»y 4X, DHALLOCATED, 14Xy TEACCRUEDs 5X, CSTB103C 

$ THACCRUED, 5Xy SHTAXED AT, 3X, 26H- LEVEL UNDER PROPOSALS -- / CSTB1O4C 

$ TH INCOME, 3X9 GHCURRENTLY» 4Xy 8HTAX BASE, 8Xy 2HTOy 1LTXe CSTB105C 

$ S8HGOCDWILL, 4X» GHINCCME, 6X5 SHPERSCNAL, 3Xy DECORPORATE, 6X, CSTB1O6C 

$ 8HREALIZED / 6H CLASS» 6X»y SHTAXEDs 4X_y 1L2EBY PRCPOSALS» 2X, CSTB107C 

$ GHTAXPAYERS, 3X9 THUNTAXED, 5X_y SHGAINS, 4X, LLKCN EQUITIES, CSTB108C 

$ 5X, SHLEVEL» 6X, 6GHINCOME, 5X, L4&4HGCCDWILL GAINS / 1X) CSTB109C 

7 FORMAT (LHC, 11X%», L8BHEFFECTIVE MARGINAL, 4X, QHEFFECT OF», 19Xy CSTB110C 
S$” LIHNET PERCENT 7. 7H LNCOMEs, 4X, 20A=—==—" 7 BXe RATES =-—=—5 “4X5 CSTB1110C 

$ B8HSHIFTING, 3X, LCHNET CHANGE, 7X, QHCHANGE IN / 6H CLASS», 5X, CSTB112C 

$ THCURRENT, 5X, 8HPROCPOSED, 3X y FHOF CHANGE, 5X» 6HIN TAXy 5Xy CS1TB113C 

$ LEéEHAFTER-TAX RETLRN / 1X) CSTB114C 

8 FORMAT (14, 2X_y 2F12.3, Fl303%9 2FL1.39 F123, FI3-39 Fl2-3y FI4~3)CSTBILSC 
S$ FORMAT (6HC ALL / 8H CLASSES, F1l0.3,9 F1l2.3y5 Fl303,y 2F11.3, F12.3,CSTBII6C 
$ F13.3, F1l2.39 F143) CSTB11L7C 
10 FORMAT (14, 2F13.3,5 2F12.3,9 F16.3) CSTB118C 
11 FORMAT (6HO ALL / 8H CLASSES, F923, F13-3, 2F12-3, F16.3) CSTBiL9IC 
12 FORMAT (1H1, 48X, SHTABLE, I[2, lH-» I1 J// CSTB12CC 
$ 42X, 23HCORPORATE SCURCE INCOME / Csipizic 

$ 37X, 33KALLOCABLE TC RESIDENT INDIVIDUALS / CSTB E226 

$6 4CX, 27HIN DIFFERENT INCCME CLASSES) CS 1b723¢ 
END CSTB124C 
SUBROUTINE DETCOR (IXKTYP, IPAR, ITPCUT, IENTRY) DTCRCOOC 
DTCRCO1C 

SUBROUTINE TO ANALYZE EFFECTS CF CCMPCNENTS OF THE REFORMED DTCRCO2C 
TAXATION CF CORPCRATE SCURCE INCOME. VERSION OF 22 AUG/66 DTCRGO 3C 
ARGUMENTS DTCRCO4C 
IXKTYP = TYPE OF CROSS-CLASSIFICATICN (DESCRIBED BY CLXNAM DTCRCO5C 

IF IXKTYP = 1) DTCRCO6C 

ITPQUT = MCNITOR CLTPLUT TAPE DTCRCO7C 
ENTRY POINTS (DETERMINED BY IENTRY) DTCRCO8C 
lL = INITIALIZATION CF TABLES DTCRCO9C 

2 = ACCUMLLATE TOTALS DTCRC1LOC 

3 = PRINT SUMMARY TCTALS DTCRC11C 
DTCRC12C 

COMMON /PROGID/ RCASE, ACASE, IPSETs ITSET, SETNOy DATE(2), ITUDEFDTCRCi 3C 


CBEY a 1s ay oO 


Ts BA 


100C 


30CC 


301 
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COMMON /ACC5/ BASDEL( 1520, 5), AVDEL ( ly20y11)y% 
$ TAXDEL( 120,11), CCRDEL( 152074) 
COMMON /CLASFN/ NINKL(3) 9 NXKLAS, CLXNAMy, KLGIVNy GIVNAM, 
% INCKL(3), IXKLAS 

CCMMON /SWITCH/ ISW(8) 

COMMON /DATA/ KLAS{(10), SUM(5C), BASE(40), CREO(40), 
$ REFTAX(5), OLOPTX(5), CORTAX(5), GIFTAX(5) 
DIMENSION TAXDL(11),5 AVDL(11)»5 BASDL(5), CORDL(4), TOTAL(11), 
$ OLT( 11), ALPHA(2), IPAR(5) 

DATA ALPHA / 3HNOT, 3HARE / 

GC TO (10CC, 200Cy 3CCO), IENTRY 

ENTRY TO INITIALIZE TABLES 

CONTINUE 

IXKTYP = 1 

Io= 1 

IS = [Sw(2) 

NINC = NINKL(TS) 

IXKL = 1 

(DELETED) 

0C 104 J = 1, NINC 

0C 101 K = ly il 

AVDEL (I,J,K) = 0. 

TAXCDEL(Iy+JeK) = Co 

DG 102 K = l» 5 

BASDEL(IyJeK) = 0. 

DO 103 K = ly, 4 

CORCEL(IsJeK) = O- 

CONTINUE 

RETURN 

ENTRY POINT TO ACCUMULATE TABLES 

CONTINUE 

INC = INCKL(IS) 

DC 201 K = ly,» 11 

AVDL(K) = AVDEL(IXKL»,INC,K) 

TAXOL(K) = TAXDEL(IXKL»,INC eK) 

OG 202 K = ly, 5 

BASCL(K) = BASDEL(IXKL,INC,K) 

DO 203 K = ly 4 

CORDL(K) = CORDEL(IXKL,INC,K) 

CALL CDET {BASDL»y AVDL, TAXDL», CCRDL) 

DO 204 K = ly ll 

AVDEL(IXKL,INC»sK) = AVDLIK) 

TAXCEL(IXKL,INCeK) = TAXDLIK) 

C205 K = Ly, 5 

BASDEL(IXKL,INCesK) = BASDL(K) 

DO 2C6 K = ly 4 

CORCEL(IXKL,INCyK) = CORDL(K) 

RETURN 

ENTRY POINT TO PRINT CUT TABLES 

CONTINUE 

NINCPL = NINC + 1 

ITAB = O 

M = IXKL 

ITAB = ITAB + 1 

fe UTTAR 2EQ. 5S «CR. ITAB .E0, 6)» GO, 70.401 

IF (ITAB .GTe 7) RETURN 

WRITE (ITPOUT,1) SETNO, RCASE, ACASEy DATE, ALPHA(ITUDEF) 


CALL oUPREFI*S”") 


/ DTCRCL4C 


DTCRC1L5C 
DTICRC1L6C 
DTCRCI7C 
DTCRC18C 
DICRC19C 
OTCRC2O0C 
DTCRC21C 
DTCRC22C 
DICRC23C 
DTCRC24C 
DTCRC25C 
DTCRC26C 
DTCRC27C 
DTCRC2 8C 
DTCRC29C 
DTCRC30C 
DICRC31C 
DTCRC32C 
DTCRC33C 
DICRC34C 
DTCRC35C 
DTCRC36C 
DTCRC37C 
DTCRC38C 
DICRC39C 
DTCRC4CC 
DICRC41C 
DTCRC42C 
DTCRO43C 
DTCRC4&4C 
DTCRC45C 
DTCRO46C 
DTCRC47C 
DTCRC48C 
DTCRC49C 
DTCRCS5OC 
DTCRC51C 
DTCRC52C 
DTCRO53C 
DTCRG54C 
DTCRC55C 
DTCRC560 
DTCRC57C 
DTCRO58C 
DTCRO590 
DTCRC600 
DTCRC61C 
DICRC62C 
DTCRC63C 
DTCRC64C 
DTCRC65C 
DTCRC66C 
DTCRC67C 
DTCRO68C 
DTCRC69C 
DTCRC700 
DTCRC71C 
DICRC72C 
DTCRC73C 
DTCRO74C 
DTCRC75C 
DTCRC76C 
DTCRC7T70C 
DTCRC78C 


302 
303 


3C4 


=i 6) 
31C 


ai 
312 


zy 


314 
Ye 


ra Ne 


3150 
31€ 


a10 


WRITE (I TPOUT,15) 


176 


IF (IXKTYP .-EQe 1) WRITE(ITPOUT,16) CLXNAPM, 
IF (IXKTYP .EQ. 1) WRITECITPOUT,17) IPAR(1), 


IF (ITAB -EQ- 1) WRITE (1 TPOLT,3) 
IF (ITAB 2EQ. 2) WRITE (ITPOUT,4) 
IF (ITAB -EQo 3) WRITE (ITPOUT,5) 
IF (ITAB -EQe. 4) WRITE (ITPOLT,46) 
TF CITABSEQS? 7)” 0 WRITE” CIT POUT,T) 


WRITE (ITPOQUT,2) 
INC = C 

OGt 20d. k= "L's 
TOTAL(I) = QO. 
INC = INC + 1 


ll 


IF (INC «GT. NINCPL) GC TO 301 
IF (INC. -EQ@e NINCPL) GC TO 311 


TE GIIAB SGT. 2)'°GU! 40) 305 


OUT(1) = BASDEL(Ms,INCol) 
OLT(2) = Ce. 

DC 304 I = 3, 6 

OUT(I) = BASDEL(M,INC,I-1) 
OLT(7) = CUT(3) 

OUT(8) = CLUT(4) + CuUT(5) 
OUT 9) = OVtt3) "F CU rs) 


OUT(1C0) = CUT(6) 

OUT(6) = C. 

OUT(11) = QUT(10) + CUT(9) 
GO ror 313 

IF (ITAB .GT. 4) GO TC 307 
DG 3206 I = 1, ll 

OUT(IT) = AVDEL(M,INC,1) 

GO TO 313 

TE OETABR? sGis 67" GO? TOr309 
DE TSO uit serel gt (bd 

OUT( I) = TAXDEL(M,INC,I) 
GOM10 3 FS 


Des 1C. Yates al ye 4 

OUTCT): = *C 

OUT(1) = CORDEL(M,INC,1) 
OUT(4) = CORDEL(M,INCs2) 
OUT(6) = CORDEL(M,INC,4) 
OUT(8) = OLT(4) 

CUT(9) = CLT(4) 


OUT(1C) = CORDEL(M,INC,3) 
OUT(11) = OUT(1C) + OUT(4) 


Ota 12 stan aL yaoi 


OUT) =" TC TACT) 

GC TO 315 

DO 314 1 = 1, 11 

TOTALCI) = TOTAL(I) + CUT(T) 
Ke" TAR = §2e( TAB 2) 


IF (K .NE~ 0) GO TO 317 


IF (QUT(1).GT.-000CCCCCO1L-OR.OUT(1).LT.~—-.00000000C1) GO TO 3150 


Das LS be a2 hk 


OLT(1T)=0- 

2 es 6 i ed 

DO 316°] hyd 

OLT(T) (CUTCL) /CUT CID J S100. 


OLT(1) Ce 


IF CENC SEQ. "NINCPLY GUYG: 318 


iP (tC ANE sero 


$ WRITE (ITPOUT,1C) INC, (OUT(T)» 


LP. lke cbs) 0) 


$ WRITE (LT TPOUT,11) INC, (OQUT(T)» 


I=1,11) 


I=l,l1) 


IXKLAS 
IPAR(2) 


DTCRCTIC 
DTCRC8OC 
DTCRCB810 
DTCROS2C 
DTCRC83C 
DTCRCB 40 
DTCRC85C 
DTCRC86C 
DTCRC87C 
DTCRC88C 
DTCRC89C 
DTCROIOC 
DTCRCIILC 
DTCRCI2C 
DTCRC93C 
DTCRC94C 
OTCRC9I5C 
DTCRC9I6C 
DTCRCITC 
DTCRC9IBC 
DICRCIIC 
DTCR1LOO0C 
DTCR1I01C 
OTCR102C 
DTCR103C 
DTCR104C 
DTCR105C 
DTCR1G06C 
DTCR1O7C 
DTCR108C 
DTCR1LOIC 
DTCR110C 
DTCR111C 
DTCR112C 
DTCR11 3C 
DTCR114C 
DTCR115C 
DTCR116C 
DTCR1I1L7C 
DTCR118C 
OTCR119C 
DTCR120C 
DTCR121C 
DTCR122C 
DTCR123C 
DTCR124C 
DTCR125C 
DTCR126C 
DTCR1270 
DTCR128C 
DTCR129C 
OTCR130C 
DTCR131C 
DTCR132C 
DTCR133C 
DTCR134C 
DTCR135C 
NDTCR136C 
DTCR137C 
DTCR138C 
DTCR139C 
DTCR140C 
DTCR141C 
DTCR142C 


Ce ak Son Ge Sm Bk ae Sal Gin a Gn a ee) 


ae 


GC TO 303 DTCR143C 

Bae are aK sEQs 0). GC, TO 320 DTCR 144C 
WRITE (ITPCUT,12) (CQUT(T)» IT = ly, 211) DTCR145C 

TF (OUT(1).GT..-00CCCCCO01L-OR-CUT(1).~LT.~--CO000000001) GO TO 3181 DTCR146C 

OC 3218C 1[=2,11 DTCR147C 
318C OLT(1)=0. DTCR148C 
ee iG, 3196 DTCR149C 
Beck 0G 319 1 = 2y 1h DTCR15CC 
31S OUT(I) = (CUT(T)/CUT(1))*100. DTCRI51C 
OLT(1) = C. DICR152C 
3190 WRITE (ITPOUT,13) (QUT(T), IT = ly 11) DTCR153C 
GC 10 301 DTCR154C 

32C WRITE (ITPCUT,14) (CUT(I), IT = 1, 11) DTCR155C 
Gow T0 301 DTCR1I56C 
DICRIS7C 

1 FORMAT (LHL, 7THSET NCoy F5e2y 2X, L4HRATE SCHEDULE y Abby 2X, DTCR158C 

$ L4HASSUMPTICN SET, A6Gy 2X, SHDATE » 2A6y LCHTAXPAYERS » A3ys DTCR159C 

$ 2S9H AGGREGATED INTC FAMILY UNITS //) DTCR160C 

2 FORMAT ( LHO, 12X_y Z3HCLDy 4X_y T(ILH—-)y DTCRL61C 

$ 35HEFFECTS GF EACH REFORM IN ISCLATION, 6(1H-)>y 5X, DTCR162C 

$ 34HPARTICULAR COMBINATIONS CF CHANGES» 6X» 3HALL/ 7H INCOME, 4X,DICR163C 

$ THBASE GR», 2X_q LLC 1H-), LSHGENERAL CHANGES, I1L(1H-)»o 1X, DTCR164C 

$  LCHCHANGES INy 2X, 8B8HNEW RTSt+_y 2X5 DHINT+CG ATs 2X, THALL GEN, DTCR165C 

$ 2X, GHALL CHNGS, 2X, 7HCHANGES / 6H CLASS, 7X9 3HTAXs 4X DTCR166C 

$ THNEW RTS» 3X» EHNCN-CORP, 2X, 8B8HINTEGRIN», 2X%_ THCAP GNSy 1Xy DTCRL67C 

$ 9HCORP BASE, 3X, 8HNCN-CORP, 3X9 THNEW RTS» 3X_y THCRKANGES, 2X, ODTCR1I6E8SC 

$ S8KEXCPT CG, 3X, SHCCMBINED // ) DTCR169C 

3 FORMAT (43HO1. EFFECTS ON BASE (THCUSANDS OF DOLLARS) //) DTCR170C 

4 FORMAT (31HO22 PERCENTAGE CHANGES IN BASE //) DTCR171C 

5 FORMAT (8CHO3. EFFECTS ON TAXES (THOUSANCS CF DOLLARS, CALCULATICDTCR172C 
$N BASED ON AVERAGE RATES) //) DTCR173C 

6 FORMAT (4CHO4. PERCENTAGE CHANGES IN AVERAGE TAXES //) DTCR174C 

7 FORMAT (5SHO05.2/. EFFECTS ON CORPCRATE TAXES CALY (THOUSANDS GF DOLLDTCR175C 
SARS) //) DTCR176C 

1C FORMAT (15, 1Xy FLl.Cy YFIO.0y F1l-0) DTCR1770 
Ll FORMAT (15, 2X, LCF1C.1,Fll.1l) DTCR178C 
12 FORMAT (6HCTOTALy Fll.O,y 9FI0O-0, F1l1.0) DTCR179C 
13 FORMAT (8HCPERCENT / 9H INCREASE,F8.21,9F10.1,F11-.1) DTCR180C 
14 FORMAT (6HC ALL / 8H CLASSES»FI.1,9FLO-L»FIl.l) DICR181C 
15 FCRMAT (1LHO, 26Xy 41HEFFECTS CF VARIOUS REFORMS ON TAXATION OF, DTCR182C 
$ 24H CORPORATE SCURCE INCCME ) DICR183C 

16 FORMAT (43X, LTHFGR TAX UNITS IN » A6y 6H CLASS, 14) DTCR184C 
17 FGRMAT (22X, 26HFCR TAX UNITS WITH BETWEEN, 13, 4H AND, I3, DTCR185C 
$ 41H PERCENT OF INCCME FROM CCRPCRATE SOURCES ) DTCR186C 
END DTCR187C 
SUBROLTINE CDET (BASDL, AVOL, TAXDL, CORDL) CDETCOOC 
CDETCOI1C 

SUBROUTINE TO COMPUTE EFFECTS OF DIFFERENT CCMBINATIONS OF CDOETCO2C 
REFCRMS ON THE TAXATICN OF CORPORATE SOURCE INCOME CDETOO3C 
ARGUMENTS CDETOO4C 
BASCL = CHANGES IN BASE (AS DEFINED AT PERSONAL LEVEL) CDETCO5C 
AVDL = CHANGES IN DIRECT TAXES, CALCULATED LSING AVERAGE TAX RATECDETCO6C 
TAXCL = CHANGES IN DIRECT TAXES (MARGINAL CALCULATIONS) CDETCOTC 
CCRDL = CHANGES IN CCRPORATE TAXES CDETCOS8C 
CDETCO9C 

COMMON /PRCGID/ RCASE, ACASEs IPSET, ITSET, SETNCy DATE(2), CDETO100 

$I TUCEF COETCL1C 
COMMON /DATA/ KLAS(10), SUM(50)», BASE(40), CRED(40), CDETC12C 

$ REFTAX(5), OLDPTX(5)y CORTAX(5), GIFTAX(5) CDETC1 3C 
DIMENSION BASDL(5), AVOL(11), TAXDL(11), CORDL({4), TCRED(2) CDETOL4C 


Aa 
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XN = SUM(1) 
EFFECTS ON BASE (AS DEFINED AT PERSONAL LEVEL) 


BASOL(1) = BASDL(1) + SUM(25) - BASE(6) 


CDETC1L5C 
COETC16C 
CDETCL7C 
CDETCIL8C 
CDETCLIC 


OTHER = REFTAX(1) -— OLDPTX(1) - BASE(6) - (BASE(3)+BASE(4)+BASE(5)CDETC200 


$i 0 = SUNG) 


BASCL(2) = BASDLt(2) + CTHER 

BASOL(3) = BASDL(3) + BASE(3) 

BASOL(4) = BASDL(4) + BASE(5) 

BASCL(5) = BASDL(5) + BASE(4) + BASE(6) 


EFFECTS ON TAXES (CALCULATION BASED ON AVERAGE RATES) 


AVRATI = Ce 

IF (ABS(OLDPTX(1)+SUM(6)) «GT. TOL) 

$AVRAT1 = (OLDPTX(3)+CLDPTX(2))/(OCLDPTX(1)+SUM(6)) 

IF (AVRATL .LT. Ce) AVRATL = OQ. 

AVRAT2 = Ce 

IF (ABS(REFTAX(1)) .~GT. TCL) 
S$AVRAT2 = (REFTAX(3) + REFTAX(4) + REFTAX(2))/REFTAX(1) 
IF (AVRAT2 .LT. Ce) AVRAT2 = 0. 


CDETC21C 
CDETC22C 
CDET C230 
CDETC240 
CDETC25C 
CDETC26C 
CDETC27C 
CDETC28C 
CDETC29C 
CDETC300 
CDETC31C 
CDETC32C 
CDETC33C 
CDETC34C 
CDETC350 
CDETC36C 


AVOL(1) = AVDL(1L) + AVRAT1L¥*(SUM(25) — BASE(6)) + CORTAX(1L)-SUM(30)CDETC37C 


TCRED(1) = OLDPTX(2)/XN 

TCRED(2) = OC. 

AVRAT3 = C. 

TF (ABS(OLOPTX(1)+SUM(6)) .GT.- TOL) 
$AVRAT3 = XN¥PROTAX((CLDPTX(1L) + SUM(6))/XNy TCREDy O) / 

$ (CLOPTX(1) + SUM(6)) 

IF (AVRAT3 .LT.~ O01) AVRAT3 = OQ. 

AVDL(2) = AVDL(2) + (AVRAT3 — AVRATL)*(SUM(25) -— BASE(6)) 
AVRAT4 = C. 

IF (ABS(OLCPTX(1)+SUM(6)4+QTHER) .GT. TCL) 


$AVRAT4 = XN¥CURTAX((QLDPTX(1) + CTHER)/XN, (CLDPTX(2)+CRED(3)+ 


$ CRED(4))/XN) / (CLOPTX(1) + SUM(6) + OTRER) 


AVDL(3) = AVDL(3) + (AVRAT4 -— AVRAT1L)#*(SUM(25) - BASE(6)) 
AVDL(4) = AVDL(4) + AVRAT1¥*BASE(3) + SUM(30) - CUORTAX(1) 
AVDL(5) = AVDL{5) + AVRATIL*BASE(5) 

TRM = Ce 


CDETC38C 
CDETC39C 
CDETC40C 
CDETC41C€ 
CDETC42C 
CDETC43C 
COETC44C 
CDETC45C 
CDETC46C 
CDETC47C 
COETC48C 
CDETC49C 
CDETC5C€E 
CDETC51C 
CDETCS2C 
CDETC53C 


TF (ABS(CORTAX(L)+CORTAX(2)) «GT.» TOL) TRY = CORTAX(1)/(CORTAX(1)+CDETC54C 


$ CORTAX(2))*CORTAX (3) 

AVDL(6) = AVDL(6) + AVRATIL¥BASE(6) + TRM 

TCRED(1) = (REFTAX(2) - CRED(2))/XN 

TCRED(2)=C. 

AVRAT5 = C. 

IF (ABS{(OLOPTX(L)+SUM(6)4OTHER) .GT. TCL) 
$AVRAT5 = PROTAX ((CLDPTX(1)+SUM(6)+CTHER)/XN, 
$ TCRED,0O)*XN / 
$ (CLOPTX(1) + SUM(6) + OTHER) 

AVCL(7) = AVDL(7) + (AVRAT5 - AVRATL)*(SUM(25) — BASE(6)) 
TCRED(1) = (REFTAX(2) - CRED(3) - CRED(4) )/XN 
AVRAT6 = Co 

IF (ABS(OLDPTX(1L)+SUM(6)+BASE(3)+BASE(5)) .«GT- TOL) 


BAVRAT6 = XN*¥PROTAX((OLDPTX(1)+SUM(6)+BASE(3)+BASE(5))/XN, 


$ TCRED, C)/S(OLDPTX(1)+SUM(6)+BASE(3)+BASE(5)) 

AVDL(&) = AVDL(8) + AVRAT6*(BASE(3) + BASE(5)) + SUM(30) 
$ CORTAX(1) + (AVRAT6 — AVRATL)*(SUM(25) - BASE(6)) 
TCRED(1) = REFTAX(2)/XN 

AVRAT7=0. 

TE (ABS(REFTAX(1)-BASE(4)-BASE(6)) .~GT. TCL) 


$SAVRAT?T = XN*¥PROTAX{ (REFTAX(1)-BASE(4)-BASE(6))/XNy TCRED, 


$ (REFTAX(1)-BASE(4)-BASE(6)) 


AVDL(9) = AVDL(9) # (AVRAT7 -— AVRAT1)¥*(SUM(25) - BASE(6)) + 


$, AVRATT#HIBASE(3) + BASEI5) ), +e SUNI3Z0)) >, CORT AXA1) 


COETCS5S5E€ 
COETCS&€@ 
CDETC57C 
CDETC58C 
CDETC59C 
CDETCEOC 
CDETC6IC 
CDETC62C 
CDETC63C 
CDETC64C 
CDETC65C 
CDETC66C 
CDETC67C 
CDETC68C 
COETC69C 
CDETC7OC 
CDETCTIC 
CDETCT72C 
COETCT3C 
CDETCT4C 
GCUETCHSC 
CDETCTCC 
GOETCTIC 
CDETC78C 


a a 


COREE Oy OG a) Gln Gad GL Ge 


se) 


AVDL(1C) = AVOL(1C) + AVRAT2*(BASE(4) + BASE(6)) COETCTIC 
AVDL(11) = AVDL(1L1) + AVRAT2*(BASE(3) + BASE(4) + BASE(5) + CDETC800 
BASE(6)) + SUM(3C) - CCORTAX(1) + (AVRAT2 - AVRAT1)*(SUM(25) - CDETCB1C 

BASE (6?) COELGELE 
COETCS83C 

EFFECTS ON CORPORATE TAXES CNLY CDETC84C 
CDETGB56 

CORCL(1) = CORDL(1) + CORTAX(1L) CDETC86C 
CORDL(2) = CGROL(2) + CCRTAX(2) CDETC870 
PORDL (tS) = CORDLE(3) + CERTAX (U3) CDETC88C 

IF (ABS(TRM) .GT. TOL) CDETC89C 
$CCROL(4) = CORDL(4) + (CORTAX(1L)/S(CORTAX(1)4+CORTAX(2)))*CCRIAX(3) CDETCIOC 
RETURN COERGIIG 

END CDETCI2C 
SUBROUTINE SUMSAM (SUM, KLS», NKLAS,», DESKLS» IENTRY) SMSMCOOC 
SMSMCO1LC 

SUBROLTINE TO SUMMARIZE SAMPLE CATA BY CLASS SMSMCO2C 
NUMBERED AS OF 21 OCT/66 SMSMCO3C 
ARGUMENTS SMSMCO4C 
SUM = SAMPLE DATA ARRAY FOR RECCRD SMSMCO5C 

Kis = CLASSIFICATICN OF RECORDS SMSMCO6C 
NKLAS = NUMBER OF CLASSES SMSMCO7C 
DESKLS = DESCRIPTICN CF CLASSES (A6) SMSMCO8C 
ENTRIES (DENCTED BY TENTRY) SMSMCO9C 

1 = INITIALIZATION SMSMC1O00 

2 = ACCUMLLATION SMSMCLI1C 

3 = OUTPUT SMSMC12C 
SMSMCL3C 

DIMENSION SUM(50), STCSUM(47,51)5 TOTAL(51), INTCFK(51), INT(10) SMSMC1L4C 
DATA INTCKK /5%1l,_ Cy 2¥1l_y 2*09 ly O- 2¥l_e 3070, 2¥1ly 440, L/S SMSMCL5C 
SMSMC1L6C 

GO TO (10C, 200, 300), IENTRY SMSMC1LT7C 

100 CCNTINUE SMSMC18C 
DG 101 3 = i, Sl SMSMOLSC 
TCTAL(J) = Ce SMSMC20C 

DG 101 I = ly», NKLAS SMSMC210 

101 STOSUM(I,J) = O. SMSMC22C 
RETURN SMSMC2 3C 
SMSMC24C 

200 CCNTINUE SMSMC25C 
OC 201 J = ly 50 SMSMC2 6C 

VAR = SUM(J) SMSMC27C 

IF (INTCHK(J) ~-EQ- 0) VAR = VAR/1000. SMSMC28C 

201 STOSUM(KLSeJ) = STOSUM(KLS,J) + VAR SMSMC29C 
STOSUM(KLS.51) = STOSUM(KLS,51) + Ll. SMSMC3CC 
RETURN SMSMC31C 
SMSMC32C 

30C CONTINUE SMSMC33C€ 
ITPCUT = 6 SMSMC34C 

KK = 1C SMSMC36C 

301 IF (NKLAS eLT.e- KK) KK = NKLAS SMSMC37C 
WRITE (ITPOUT,1) DESKLS», Ky KKy (1, I=K,KK) SMSMC38C 

DO 203 J = le 51 SMSMC39C 

IF (INTCHK(J) «EQ. OC) WRITE (ITPOUT,2) Jy (STOSUM( I,J), I = Ky KK) SMSMO4OC 

DO 302 I = Ky KK SMSMC41C 

ie ene We gE SMSMC42C 
INT(M) = STOSUM(IT,J) + Oo] SMSMC43C 

302 TOTAL(J) = TOTAL(J) + STOSUM(I,J) SMSMC44C 
IF (INTCHK(J) -EQ. 1) WRITE (ITPOUT,4) Je CINT(T), I = ly M) SMSMC45C 


anaaN 


(ei gel ae 


180 


302 CONTINLE 


304 


1 


2 


3 


4 


1CcC 


2CC 


K+ 1C 

KK = KK # 10 

IF (NKLAS .GEe K) 
WRITE (ITPOUT,3) 
DO 304 J = ly, 5l 


K.= 


GO TO 301 


IF (INTCHK(J) «EQ. O) WRITE (ITPOUT,2) Jy TOTAL(J) 
INT(1) = TOTAL(J) + Cel 

IF (INTCHK(J) eEQe 1) WRITE (ITPOUT,4) Jy INT(1) 
CONTINUE 

RETURN 

FORMAT (28HISUMMARY CF SAMPLE DATA FGR » A6y 8H CLASSESs 


$ 3H TO, 


$ 7h NUMBER, 
(14, 
(39HLSUMMARY CF SAMPLE DATA FOR ALL CLASSES / 


FORMAT 
FORMAT 


I3 / 5HO SUM, 
I2, 


BX, 
Fl4.l1l, 


SF 


6X, L3HCLASS NUMBERS / 
Stitt 4 4bx} 
11.1) 


+ 5HO SUM / TH NUMBER / 1X) 


FORMAT 
END 


SUBROUTINE SUMDAT 


(14,5 


114, 


OT iis) 


(TENTRY) 


SUBROUTINE TO SUMMARIZE MISCELLANECUS SAMPLE CATA 


NUMBERED AS OF 


COMMON /FPAR/ MARTAL, 
COMMON, /MISC/ CHRYA, 


$ DCH3CC, 
COMMON /ADJUST/ DELTA(10), 
COMMON /DATA/ KLAS(1C), 
$ REFTAX(5), 
COMMON /SWITCH/ 
DCUBLE PRECISION STOSUM, 


DCH550, 


F300, 


CLOPTX(5)y 
TSwt25) 


DIMENSION STORE(120), 


ITTPCUT = 


GC 10 


OASM = 


é 


(10C, 
CONTINUE 
12C. 


IF (1SwW(6) 


DG 101 J 


STORE(J) 
It - tJ 


CONTINLE 
RETURN 

CONTINLE 
XN = 


eGTe 
STOSUM(J) 


200, 


EQ. 1) 
1, 120 


50) 


= 0. 


SUM(1) 


3CO), 


C 


21 OCT/66 


IWWIFE, DEPCH, CCEP 
WAGES, S105D, CORBAS, PRCEED, 
F550, FCHLON, CTH300, CTH550 
OTHER(30), UNTAXD(20) 
SUM(5G), BASE(40), CRED(40), 
CCRTAX(5)_, GIFTAX(5) 


STORE 
STOSUM(51) 


IENTRY 


ASM = 240. 


GC Td 101 


DATA FOR CURRENT TAX RECONCILIATICN 


STGRE(1) 
STORE(2) 
STORE(3) 
STORE(4) 
STORE(5) 
STORE(6) 
STORE(7) 
STORE( 8) 
OAS = 


bout @ wou owe 


STORE(1) 
STCRE(2) 
STORE (3) 
STORE (4) 
STORE(5) 
STORE (€) 
STORE (7) 
STORE (8) 


+++ +e to + 


+ 


SUM(40) 
SUM(40) - 
DELTA(1) 
DELTA(2) 
DEGTAU3) “A DELTA LA) 
CLDPTX(1) 

CLDPTX(2) 

CLDOPTX(3) 


SUM(41) 


C.O04*¥OLDPTX(1)/XN 


13, 


SMSMC460 
SMSMC470 
SMSMC48C 
SMSMC49C 
SMSMC50C 
SMSMO51C 
SMSMC52C 
SMSMC53C 
SMSM054C 
SMSMC55C 
SMSMC56C 
SMSMC57C 
SMSMC58C 
SMSMC59C 
SMSMC60C 
SMSMC61C 
SMSMC062C 
SMSMC63C 
SMSMC64C 
SMSM065C 


SMDTCOOC 
SMDTCO1C 
SMDTCO2C 
SMDOTCO 3C 
SMDTCO4C 
SMDTCOSC 
SMDTCO6C 
SMDTCO7C 
SMDTCO8C 
SMOTCOSC 
SMDTCLOC 
SMOTC1IC 
SMDTC111 
SMDTC1L2C 
SMOTC13C 
SMDTO14C 
SMDTCL5C 
SMDTCL6EC 
SMDTC17C 
SMDTC18C 
SMOTC1IC 
SMOTC2O0C 
SMDTC21C 
SMDTC22C 
SMDTC23C 
SMDTC24C 
SMDTG25C 
SMOTC26C 
SMOTC27C 
SMDTC2 8C 
SMDTC29C 
SMDTC30C 
SMDTC31C 
SMOTC32C 
SMOTC33C 
SMCTC34C 
SMDTO35C 
SMDTO36C 
SMDTC37C 


aan 


O Ore 


GG Go 


CO G 


201 


204 


205 


206 


3CC 


301 


3C2 


$ 


$ 


181 
IF (OAS «GT» OASM) CAS = CASM 


FEDTAX = QLDPTX(3)/XN —- OAS 
DECRES = FEDTAX/0.80 - FEDTAX 

IF (DECRES .GT. 2C.) DECRES = 20. 
STORE(9) = STORE(S) + DECRES*XN 
STORE(10) = STORE(10) + OAS*XN 


STORE(11L) = STORE(11) + SUM(42)/0.82 + SUM(44) 


FEDTAX = CURTAX((SUM(40) - SUM(41))/XNy 


REVCAS = OAS 
OAS = C.04*({SUM(4C) - SUM(41))/XN 
IF (OAS .GT.~ CASM) CAS = CASMF 


OLDPTX(2)/XN) 


STORE(12) = STORE(12) + SUM(44) - CAS*XN 
STORE(17) = STORE(17) + (REVOAS - CAS) *XN 


FEDTAX = FEDTAX —- CAS 

DECRES = C.25*FEDTAX 

Pe VADECKES «GT. 20.) DECRES = 20. 
STORE(18) = STORE(18) + FEDTAX*XN 
PEDTAXs=,FEDTAX + DECRES 


STORE(13) = STORE(13) + SUM(42)/0.82 - 
STORE(14) = STORE(14) + SUM(42) 
STORE(15) = STORE(15) + SUM(43) 
STORE(16) = STORE(16) + SUM(44) 


SAMPLE SUMS 

Bee20lyJg=, 19. 50 

STOSUM(J) = STOSUM(J) + SUM(J) 
STOSUM(51L) = STOSUM(51) + 1. 


FAMILY STATUS AND EXEMPTION DATA 


STORE(21) = STORE(21) + CHRYA 
STGRE(22) = STORE(22) + DCH300 
STORE( 23) e0 STORE (23) + DCHS550 
STORE(24) = STORE(24) + F300 
STORE(25) = STORE(25) + F550 
STORE(26) = STORE(26) + FCHLDN 
STORE(27) = STORE(27) + OTH300 
STORE(28) = STORE(28) + OTH550 
STGRE(29) = STORE(29) + 


DCHS50 = F550) 


SACRE(30) =, STORE(30), + SUM(6D7=) (SUM(2)41000. 


SLM(4)*3CC. + SLM(5)*500.) 
CRECITS AND MISCELLANECUS SUMS 


DEY 204. 3,2 le 7 
STORE(J+4C) = STORE(J+40) + CRED(J) 


STORE(51) = STORE(51) + S105D 
STORE(52) = STORE(52) + CORBAS 
STORE(53) = STGRE(53) + WAGES*XN 


DG 205 J = 1, 30 

STORE(J+6C) = STORE(J+60) + OTHER(J) 
BE; ZOE) Ji =ridy 20 

STORE(J+9C) = STCRE(J+90) + UNTAXD(J) 
RETURN 


OUTPUT 


WRITE (ITPOUT,1) 
MO: B0l, J =A» 20 
WRITE (ITPOUT+2) Js STCRE(J) 
WRITE (ITPOUT,3) 
DO 202: J; = 1» 50 
WRITE (ITPCUT,2) Jy STCSUM(J) 


95911—13 


FEDTAX*XN 


(DEPCH*XN - FCHLON) - (DCK300 - 


+ SUM(3)*550. 


SMDTC38C 
SMDTC39C 
SMDTC40C 
SMOTC41C 
SMDTC42C 
SMDTC43C 
SMDTC44C 
SMDTC45C 
SMOTC46C 
SMDTO47C 
SMDTC48C 
SMDTC490 
SMDTC5CO 
SMOTC51C 
SMDTC52C 
SMDTC53C 
SMDTC54C 
SMOTC55C 
SMDTC56C 
SMDTC57C 
SMDTC58C 
SMOTC59C 
SMDTC600 
SMDTC61C 
SMDTC62C 
SMDTC63C 
SMOTC64C 
SMDTC65C 
SMOTC66C 
SMDTC67C 
SMDTC68C 
SMDTC69C 
SMOUTC7OC 
SMDTC71C 
SMDTC72C 
SMCOTC73C 
SMDTC74C 
SMDTC75C 
SMDTC76C 
SMDTC77C 
SMDTC78C 
SMDTC79C 
SMDTC8&OC 
SMDTC81C 
SMDTC82C 
SMODTC83C 
SMOTC84C 
SMDTC85C 
SMDTC86C 
SMCTC87C 
SMOTCB8C 
SMDTC89C 
SMOTC9CC 
SMCOTCI1C 
SMDTC92C 
SMDTC93C 
SMBTC94C 
SMDTC95C 
SMDTC96C 
SMOTC9TC 
SMCTC9IBC 
SMDTCI9I9C 
SMDT100C 
SMOT1O1LC 
SMOBT102C 


AAMANAM 


303 


3C4 


305 


30€ 


307 


WRITE 


Ba 203.9 = 
(ITPCUT,2) Jes 


WRITE 
WRITE 


DC 304 J = 
(ITPOUT,2) Jy 


WRITE 
WRITE 


OG 307 I= 
(ITPOUT,2) Je 


WRITE 
WRITE 


NO 206 J = 


WRITE 
WRITE 


DO 207 J = 


WRITE 
RETURN 


1 FORMAT 


$ 4KOSUM, 


FORMAT 
FORMAT 
FORMAT 
FORMAT 


Wi B WN 


$ 4HOSUM, 


6 FORMAT 


182 


(I1TPOUT,5) 


21, 40 
STCRE(J) 


(ITPOUT,6) 


41, 5C 
STORE (J) 


(ITPCUT,4) 


( 


( 


Sly 6C 

STGRE(J) 
ITPCUT,7) 

61, 90 


ITPOUT»2) Js STCRE(J) 


(ITPCUT,8) 


( 


91, 110 


ITPCUT+s2) Js STORE(J) 


(36HLDATA FCR CURRENT TAX RECONCILIATION / 


20X, SHVALUE) 
(14,5 9X, F152) 
(L2HLSAMPLE SUMS / 4HOSUM, 20X, 
(LSHLMISCELLANECUS SUMS / 4HOSUM, 


5HVALUE) 


20X%y SHVALUE) 


(33KLFAMILY STATUS AND EXEMPTICN DATA / 


20X, SHVALLE) 
(14H1LTCTAL CREDITS / 4HOSUMy 20Xy 


SHVALUE ) 


7? FORMAT 
€ FORMAT 


(LH1l, 
(lK1l, 


22HTCTALS FOR ARRAY CTHER / 1X) 
23HTCTALS FOR ARRAY UNTAXD/ 1X) 


END 


SUBROUTINE DBLGL 


SUBROLTINE TO PRINT CUT INTERMEDIATE CUTPUT PRODUCED BY BASADJ 


AND ASSCCIATED SUBRCUTINES 
NLMBERED AS OF 21 OCT/66 


COMMON /DATA/ KLAS(10), 
$ REFTAX(5), OLDPTX(5), CORTAX(5), 
CCMMON /PROGID/ RCASE, ACASE, 
COMMON /PARAM/ ASS(2CO)>5 
$ IORDER (7), ISPRES(2592)% NSUP, 
CCMMON /CLASFN/ NINKL (3), NXKLAS, 
$ INCKL(3), IXKLAS 

COMMON /FPAR/ MARTAL» IWWIFE,» 
CCMMON /ADJUST/ DELTA(10)>+ 


SUM(50)y 


DEP 


IPSET, 
ALLCW(50),5 


OTHER(30), 


BASE(40)> 
GIFTAX(5) 
ITSET, 

ITUDEF» 

IMINTP, ITPCUT, 

CLXNAMy, KLCIVN, 


CRED(40)» 


SETNC» 
IDATA, IBASIS, 
ITDATA 
GIVNAM, 
CH, CDEP 
UNTAXD(20) 


COMMON /EXTRA/S KKLAS(15)_ NK» NSKLAS 
COMMON /MISPAR/ KCHNGE, NBREF, NCRED 
WRITE ( 6,59 1) 

WRITE ( 6911) 

NTAXPR = SUM(1) + O.1 

WRETE £UG eu 27504) KLAS(I)» I = ls 10) 
WRITE ( 6,912) 

WRITE ( 65 3) ( Iy SUM(I), I = ly» 50) 
WRITE ( 6913) 

WRITE ( 6,5 3) C Ivy BASE(I), I = ly 40) 
WRITE ( 6,14) 

WRITE ( 6, 3) ( I>» CRED(I)» I = ly 40) 
WRITE ( 6,915) 

WRITE ( 6, 3) €( IT, OLDPTX(I), I = ly 5) 
WRITE ( 6,16) 


DATE(2), 


SMDT103C 
SMDT104C 
SMDT 105C 
SMDT106C 
SMDT1O7C 
SMOT 108C 
SMOT109C 
SMOT1LLOC 
SMOT111C 
SMOT 112¢ 
SMDT 11 3C 
SMOT114C 
SMDT115C 
SMDT116C 
SMOT117C 
SMOT118C 
SMOT119C 
SMOT 1200 
SMOT121C 
SMDT122C 
SMDT 12 3C 
SMDT124C 
SMDT125C 
SMOT126C 
SMCT 12 7C 
SMOT12 8C 
SMDT129C 
SMDT130C 


DBG1LOOOC 
DBG1CO1C 
DBG1CO2C 
DBG1CO3C 
DBG1CO4C 
DBG1CO5C 
DBGICO6C 
DBG1CO7C 
ITDEFDBGILCOS8C 
DBG1LCO9C 
DBG1LCLOC 
DBG1OLIC 
DBG1C12C 
DBG1C13C 
DOBGLICL4C 
DBG1LOL5C 
DBG1C016C 
DOBG1LOL7IC 
DBG1C18C 
DBG1C19C 
DBG1C200 
DBG1LC21C 
DBG1C22C 
DBG102 3C 
DBG1024C 
DBG1025C 
DBG1C26C 
DBG1C27C 
DBG1028C 
DBG1C29C 
DBG10300C 


183 


WRITE ( 6, 3) ( I» CGRTAX(I), I = ly» 5) 
WRITE ( 6917) 
wreive t 64-3) € Ty GEFTAK(I) > T°="1s"' 5) 
WRITE ( 6918) 
Barret 65° 3) (hb, REFTAXOUL)s T' = 1y*"5) 
WRITE (6,SC) 
WRITE (6,5 3) (I, CTHER(I), IT = Le 30) 
WRITE (6,51) 
WRITE (6, 3) (I, DELTA(T), I = ly 10) 
WRITE (6585S) 
WRITE (6,53) (I, UNTAXO(T)» IT = ly 20) 
WRITE ( 6,51) NTAXPR 
WRITE ( 6,52) NBREF 
WRITE ( 6953) KCHNGE 
WRITE ( 6919) 
oC 10C I = ly, 3 
1CC WRITE ( 6,54) I, INCKL(I) 
WRITE ( 6956) IXKLAS 
WRITE ( 6,72) 
IF (NSKLAS .LTe Ll) WRITE ( 6574) 
fe UNSKEAS ~LT¥s Ll) GEItTa 102 
DO 101 I = ll» NSKLAS 
1Cl WRITE ( 6573) I» KKLAS(I) 
1C2 WRITE ( 6,20) 
WRITE ( 6961) MARTAL 
WRITE ( 6,62) IWWIFE 
WRITE ( 6,83) DEPCH 
WRITE ( 6,84) QDEP 
fe UaCUT SGEQs.) 1) RETURN 
ICUT = 1 
WRITE (6,52) 
WRITE ( 6521) 
WRITE ( 6,85) RCASE 
WRITE ( 6,86) ACASE 
meiie ( 6463) I[PSET 
WRITE ( 6564) ITSET 
WRITE ( 6,87) SETAC 
WRITE ( 6,€&8) DATE(1), DATE(2) 
WRITE ( 6,19) 
Oe 201 12" 14° 3 
2C1l WRITE ( 6957) Ie NINKL(T) 
WRITE ( 6959) NXKLAS 
WRITE ( 6981) CLXNAM 
WRITE ( 6,60) KLGIVN 
WRITE ( 6,982) GIVNAM 
WRITE ( 6922) 
WRITE ( 6923) 
WRITE ( 6,5 4) ( Ty ASS(I)»> I = 15110) 
WRITE ( 6,924) 
WRITE ( Gy 4) ( Io ALLCW(I), I = ly 50) 
WRITE ( 6,25) 
Bertie’ ( 6, 2) € TT, ICRDER(I)» I = Ll» te) 
WRITE ( 6926) 
Seite {> Gy, 2) ( TeTSPRES(I,1) eI = 1, 25) 
WRITE ( 6527) 
BRITE { by 2) ( 1,1SPRESTE,2)91>22T9 25) 
WRITE ( 6,65) ITUDEF 
WRITE ( 6,66) IDATA 
WRITE ( 6,67) IBASIS 
WRITE ( 6968) NSUP 
WRITE ( 6,69) IMINTP 
WRITE ( 6,70) ITPCUT 
WRITE ( 6,71) ITCATA 
RETLRN 


95911—133 


DBG1O31C 
DBG1C32C 
DBG10330 
DBG1034C 
DBG1C35C 
DBG1C36C 
DBG1C37C 
DBG1C38C 
DBG1039C 
DBG1C400 
DBGIC41C 
DBG1042C 
DBG1C43C 
DBG1C44C 
DBG1C45C 
DBG1C46C 
DBG1C47C 
DBG1C48C 
DBG1C49C 
DBG1C50C 
DBGIC51C 
DBG1C52C 
DBG1C53C 
DBGILC54C 
DBG1C55C 
DBG1056C 
DBG1C57C 
DBGiC58C 
DBGIC59C 
DBGLC6CC 
DBG1C61C 
DBG1C62C 
DBG1C63C 
DBG1C64C 
DBG1C65C 
DBG1C66C 
DBGLC67C 
DBG1IC68BC 
D&G1C69C 
DBG1OT7OC 
DBGIC71C 
DBG1C72C 
DBG1C73C 
DBG1CT4C 
DBG1CT5C 
DBGICTE6C 
DBGICTIC 
DBGILCTBC 
DBG1C79C 
DBG1C8OC 
DBG1C8I1C 
DBG1C82C 
DBG1C8 3C 
DBG1CB4C 
DBG1LC85C 
DBG1LC&6C 
OBG1C87IC 
DBGLC8&aC 
DBGLCAIC 
DBG1CIOC 
OBG1ICIIC 
DBG1C92C 
DBG1CI3C 
DBGICI4C 
DBG1C95C 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
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APPENDIX B 


INFORMATION COLLECTED FROM THE 1964 
TAXATION STATISTICS SAMPLE 


This appendix contains a list of the data read in by subroutine 
READIN for each data record. The data consist of 5 classification 
indices (the elements of array "KLAS") and of 46 data variables (the 


elements of array "SUM"). 


The possible values of the five classification indices are defined 


in Tables B-l to B-7. The five indices are as follows: 


Index Definition of Index 

KLAS (1) "Preliminary family status" class 

KLAS (2) Income class (based on total income 
assessable under 1964 tax law) 

KLAS (3) Tax-paying status (paying or non-paying) 

KLAS (4) Age/occupation/sex class 

KLAS (5) Dependant status class. 


Tax returns were thus classified by income, by a "preliminary family 
status" variable reflecting marital and family status and the work status of 
the taxpayer's spouse, by a "dependant status" variable reflecting the 
total number of dependants and number eligible for family allowances claimed 
by the taxpayer, by a combined age/occupation/six variable, and by whether 
the taxpayer did or did not pay taxes in 1964. The number of classes in 


each classification was as follows: 


7 “preliminary family status" classes 


47 income classes 
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2 taxepaying status classes 
26 age/occupation/sex classes 


15 "dependant status" classes. 


Some combinations of "preliminary family status" and age/occupation/ 
sex classes were not possible. Eliminating these, there was a total of 
203,040 different cross-classifications of tax returns possible. In fact, 
however, because no tax returns were found to accord with particular 
combinations of characteristics in a large number of cases, it turned out 
that classifying the tax returns in the 1966 Taxation Statistics sample in 


this way resulted in only 19,370 groups of 1 or more tax returns. 


The first classification index is entitled “preliminary family status" 
to denote the fact that taxpayers have not been aggregated into family tax 
units as proposed by the Commission. This index has however been defined 
in such a way as to simplify the application of a computer program designed 
to effect the aggregation of the appropriate numbers of average taxpayers 
in each class, based upon statistics obtained from a special matching run 
performed by the Department of National Revenue using its master address 
file for all taxpayers. The index is defined in Table B-1; the basis for 


assignment of index values to data records is described by Table B-2. 


The other four classification indices were defined so as to obtain 
a separation of taxpayers into groups likely on a priori grounds to have 
different characteristics that would result in the Commission's recommen- 
dations having significantly different impacts on each group. It should be 
noted that the significance of inter-group variation in tax changes resulting 
from the Commission's proposals has not been tested; the prime purpose of 


the classification was to make possible the aggregation of the 411,510 data 
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records of the original sample into a more manageable 19,470 records without 
losing mech information in the process. The classifications chosen are 


defined in Tables B-3 to B-7. 


The data aggregated from tax returns falling within each classification 
group are defined in Table B-8. The 46 variables defined in that table are 
the 46 elements of the "SUM" array read in for each of the resultant data 
records. Terms used in Table B-8 are defined in 1966 Taxation Statistics: 


Part One (Ottawa: Queen's Printer, 1966), pp. 97 ff. 


Summary data describing the sample and its reliability are presented 
in Tables B-9 and B-10. Table B-9 shows the distribution of the 19,370 
sample groups by income class and by the number of tax returns aggregated 
into each group. Table B-10 provides data on the number of tax returns in 


each income class and on the effective sampling rates in each class. 
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TABLE B-1 


DEFINITION OF PRELIMINARY FAMILY STATUS 
CLASS ASSIGNED TO EACH TAXPAYER 


Class Description 


—]) "FO. 2° 


a/ 


Family head, spouse not earning income 
Head of family (male), with spouse earning income 
but no more than $1,250 
Head of family (female), with spouse earning income 
but no more than $1,250 
Spouse filing separately - male 
Spouse filing separately - female 
Child in family unit now filing separate return a/ 
Single individual b/ 
This case is assumed to include (1) children filing tax returns 
even though claimed as dependants by their parents, (2) children 
under 25 who are not now claimed as dependants (because their 
income is too large), but who are living at home even though 
earning income. 
Note that a single individual may be able to claim for a concessionary 
allowance for dependent close relatives related by blood, marriage 


or adoption. Under the Commission's proposals, an unmarried taxpayer 
may claim family status only if he has a dependent child. 
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TABLE B-2 


PRELIMINARY FAMILY STATUS CLASS ASSIGNED TO TAXPAYER GIVEN 
ACTUAL MARITAL STATUS, AGE, SEX, INCOME RECEIVED BY 
SPOUSE, AND FILING STATUS UNDER CURRENT LAW 


Filing Status Under Current Law 


Single Married 
Income Lor Lior 
Actual Received No More No More 
Marital By Depend- Depend- Depend- Depend- 
Status Age Sex Spouse ants ants ants ants 
Married =< Male 0) o= _ i ke pi 
>0 4 4 2 2 
Female 0 — _ te Ll 
70 5 ) S 3 
Widow(er) — ~ — 7 ve 1 a/ 1 a/ 
Divorced —_ _ _ 7 7 Ea/ 1 a/ 
Separated — one _ 7 7 ya] 1 a/ 
Single 25 or less _ —_ 6 4 1 a/ 1 a/ 
more than 25 — i; 7 Piaf i Ava/ 
Not stated 25 0r less — _ 6 i a a /e ee ie), 
more than 25 — _ Ws 7 1 a/ 1 a/ 
Notes: 


a/ It should be noted that there are two cases in which it is invalid to 
assume that a taxpayer now taxed as married will qualify as head of a 
family under our proposal: 


(1) Single clergy now taxed as married as a consequence of maintaining 
a dwelling in connection with which he employed a full-time house- 
keeper or servant will be taxed as an individual. 


(2) An individual who is single, separated, divorced, is widowed and 
who is now taxed as married as a consequence of supporting a 
wholly dependent person related by blood, marriage, or adoption 
will be taxed as an individual (but be allowed to claim a $100 
tax credit for the dependant) if the dependant is not a child 
of the taxpayer. 


The assumption specified here consequently results in an over- 
statement of the number of tax units qualifying for use of the 
family rate schedule. 


Detailed 
Class 


1 
2 
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CLASSIFICATION OF TAXPAYERS BY TOTAL ASSESSABLE INCOME REPORTED 


19) 


TABLE B- 


Total Income Reported a/ 


$ 


less than $1 

1 - 499 ) 
) less than $ 1,000 

500 - 749 

750 - 999 ) 

1,000 - 1,2h9 ) 

1,250 - 1,499 
) $ 1,000 - $ 1,999 

1,500 = 1,749 

1,750 - 1,999 ) 

2,000 - 2,499 ) 
) 2,000 2,999 

2,500 - 2,999 ) 

3,000 on 3,499 ) 
) 3,000 3,999 

3,500 - 3,999 ) 

4,000 - 4,499 ) 
) 4,000 4,999 

4,500- 4,999 ) 

5,000 - 5,499 ) 
) 5,000 5,999 

5,500 - 5,999 ) 

6,000 - 6,499 ) 

) 

6,500 - 6,999 ) 
) 6 ,000 7,999 

7,000 - 7,499 

7,500 - 7,999 ) 

8,000 - 8,499 

8,500 - 8,999 ) 
8 ,000 9,999 

9,000 - 9,499 5 

9,500 % 9,999 ) 

10,000 - 10,999 ) 
) 10 ,000 11,999 

11,000 - 11,999 ) 

12,000 - 12,999 
13,000 - 13,999 12,000 14,999 

14,000 - 14,999 ) 


Summary 
Class 


VS 


DNR Classes 
Included b/ 


OY fa 


i i a a a i ai Fe i a i i i a i a i i it ST ta a a Fe i ai i ai i i 
im 
ine) 


je 


Detailed 
Class 


30 
31 
32 
DD 
34 
oy, 
36 
ot 


Notes: 


a/ Total income assessed for each taxpayer, 


b/ 
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TABLE B=-3 (continued) 


CLASSIFICATION OF TAXPAYERS BY TOTAL ASSESSABLE INCOME REPORTED 


Total Income Reported a/ 


$ 15,000 
17,000 
20 ,000 
25,000 
30 ,000 
35,000 
40 ,000 
50 ,000 
75 ,000 

100 ,000 
125,000 
150,000 
175,000 


200 ,000 


225 ,000 
300 ,000 
400 ,000 


500 ,000 


16,999 ) 
19,999 
2k ,999 
29 999 ) 
34,999 
39,999 ) 
49 ,999 ) 
74.999 
99 999 
124,999 }) 
149 ,999 
) 
) 
) 


199 ,999 
22h ,999 


35 000 - 


50,000 - 


75,000 


100,000 - 


150,000 - 


200,000 - 


19,999 


2h ,999 


34,999 


49 ,999 
Th 5999 
99,999 


149 ,999 


199 ,999 


299 ,999) 


300,000 and over 


Summary 


Class 


ane 


DNR Classes 
Included b/ 


5) 


54 


22 


56 


after deduction of allowable expenses 


incurred in the earning of income but before deduction of personal exemptions and 


other deductions. 


Expenses incurred in the earning of income include allowable 


employment expenses, interest and other carrying charges allocatable to investments 
in assets producing taxable income, shareholder depletion, and business expenses 
deductible in the computation of net income from a farm, business, rental property 


or profession. 


Classification used in Table 2 of 
Income Tax Statistics for 1963. 


1965 Taxation Statistics: 


(Ottawa: Department of National Revenue, 1965). 


Part One—Individual 


The same classification is used in the as yet unpublished 1966 Taxation Statistics. 


Q 
kr 
0 ON NWI FWD b 


LO 


Note: a/ See Table B-5. 


CLASSIFICATION OF TAXPAYERS BY AGE, 
PRIMARY OCCUPATION, AND SEX 


eee 


21 or Less 


22 - 25 
2Or aa? 
ho - 6h 


65 and over 
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TABLE B-4 


Preliminary 
Occupation 


Class a/ 
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TABLE B- 


PRELIMINARY OCCUPATION CLASSES 
ASSIGNED TO TAXPAYERS 


DNR Occupation 


Class Taxpayer's Primary Occupation a/ Classes Included by 
T Employees nha 
2 Farmers and fishermen 8-9 
3 Doctors, dentists, and lawyers (soa) 
in Other self-employed professionals 10 14-16 
5 Salesmen L7 
6 Business proprietors 18-30 
7 Investors opt 
8 Owners of rental property 32 
9 Pensioners 33 

10 Others 3h 


Notes: a/ Classified by method of earning income (employed vs. self- 
employed), rather than type of work involved. 


Taxpayers are classified by occupation producing largest 
share of assessable total income. 


b/ Classification used in Table 3 of 1966 Taxation Statistics: 
Part One—Individual Income Tax Statistics for 1 Ottawa 
Department of National Revenue, unpublished). 
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TABLE B-6 


CLASSIFICATION BY NUMBER AND STATUS 
OF DEPENDANTS IN TAX UNIT 


Number of Dependants Number of Dependants 
Receiving Family Not Receiving 
Class Allowances Family Allowances 
1 0 ) 
fod 1-2 
a >2 
ms 1 0) 
5 1-2 
6 >2 
f 2 6) 
8 1-2 
9 >2 
10 3-4 0) 
iE 1-2 
12 >2 
13 > 0) 
14 1-2 
15 >2 


Notes: The only data on dependants collected from the returns in the 1964 
Taxation Statistics sample were whether or not a taxpayer filing as 
single claimed any dependants and whether a taxpayer filing as 
married claimed 1, 2, 3, 4, or more than 4 dependants. The number 
of dependants of each type was therefore estimated from data on 
total personal exemptions as follows: 


(lL) Te eto any positive integers Nl and N2, Nl was not greater 
than 10 and Nl times $300 plus N2 times $550 was exactly equal 
to the total personal exemptions less $1,000 if the taxpayer 
files as single or $2,000 if the taxpayer files as married 
(or $1,500 or $2,500, respectively, if the taxpayer was 65 years 
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TABLE B-6 (continued) 
Notes: (continued) 


old or older), then Nl and N2 were respectively taken to be 
the number of dependants receiving family allowances and the 
number of other dependants, provided that the sum of Nl and 
N2 was consistent with the marital/dependant status noted for 
the return on the sample card. 


(2) If Nl and Ne could not be computed as above for a taxpayer 
filing as married, the sum of Nl and Ne was assumed to be the 
smallest number consistent with (A) the marital/dependant 
status noted on the sample card and (B) assuming the excess 
over $250 of a wife's income deducted from the taxpayer's 
marital exemption to be no greater than $1,000. Nl and N2 
were then assumed to be those numbers consistent with this 
sum which resulted in the largest estimated income of the 
taxpayer's wife, again provided that the estimated wife's 
income was no greater than $1,250. 


(3) If Nl and N2 could not be computed as in (1) for a taxpayer 
filing as single, the taxpayer was assumed to be partially 
non-resident. In this case, Nl and N2 were chosen (A) to 
yield a total exemption larger than the exemption claimed, 
and (B) so as to minimize this difference. The ratio of the 
difference from $1,000 to $1,000 was then subtracted from 
unity for later accumulation into the number of $1,000 
exemptions for the class. 


(4) If total personal exemptions plus standard deductions claimed 
were less than $1,100 for a single taxpayer, $2,100 for a 
married taxpayer, or $1,600 or ,»000 if the taxpayer was 
over 64, the ratio of the difference to the number of $1,000 
exemptions times $1,000 was subtracted from the number of 
$1,000 exemptions and the number of $300 and $550 exemptions 
was assumed to zero. 


In cases (3) and (4), all adjustments for proration of standard 
allowances and personal exemptions for individuals not resident in 
Canada for the full year were collapsed into an adjustment of the 
number of $1,000 exemptions claimed. 


Note: 
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TABLE B-7 


CLASSIFICATION OF TAXPAYERS 
BY TAX-PAYING CLASSES 


Description 


Tax~paying 


Non=tax~-paying 


A return was classified as “tax-paying” if a 
tax was assessed on that return in 1964. A 
portion of the returns in the sample were 
later re-assessed or modified by the sub- 
mission of a second return filed in amendment 
of the original; any changes resulting from 
such re-assessments or amendments were not 
incorporated. 


eee 
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TABLE B-8 


TOTALS ACCUMULATED FOR EACH CLASS OF TAXPAYER 
FROM INDIVIDUAL TAX RETURNS SAMPLED 


Sum Number Description 
if Number of taxpayers in class 
Personal 
Exemptions 
2 Number of $1,000 exemptions a/ 
3 Number of $550 exemptions 
rn Number of $300 exemptions 
5 Number of old age exemptions 
6 Total personal exemptions 
Personal 
Deductions 
u Number of taxpayers claiming standard deductions 
8 Number of taxpayers claiming medical deductions 
9 Total gross medical expenses claimed 
10 Total net medical deductions claimed 
Le Number of taxpayers deducting union or professional dues 
12 Total dues deducted 
15 Number of taxpayers claiming both dues and medicals 
14 Number of taxpayers claiming donations 
5 Total donations allowed 


Income From Employment, 
Business, or Profession 


16 Employment income 

nly § Net business income 

18 Net professional income 

19 Net income from commissions 

20 Net income from farming and fishing 

Pape Net rental income 

22 Capital cost allowances deducted 

25 Business and professional expenses deducted from gross 
income excluding capital cost allowances b/ 

ok Prior year business loss 


Investment Income, 
Deductions and Credits 


25 Gross dividends from Canadian companies c/ 
26 Annuity income 
2T Other Canadian investment revenue a/ 


28 Foreign investment income 
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TABLE B-8 (continued) 


Investment Income, 
Deductions and Credits Description 


29 Deductions from investment income 
30 Dividend tax credit 
a4 Foreign tax credit 


Other Income 


32 Old age pension income 

Sy Alimony received 

34 Other income e/ 

a Income of spouses earning less than $1,250 £/ 


Other Deductions 


36 Pension contribution 

ST Retirement savings premiums 

38 Alimony paid 

39 Other deductions (excluding deductions from 


investments and prior year business loss) 


Total Income, Deductions 


and Taxes 
LO Total income 
1 Total deductions 
ho Total federal income tax payable 
4% Total provincial tax collected 
yy Total old age security tax collected 
45 Number of taxpayers liable for Quebec income tax 


Sample Information 
46 Number of returns in sample 


Miscellaneous Details 


LT Bond and bank interest 

48 Mortgage interest 

Ke) Estate income 

50 Business expenses deducted (excluding capital cost 
allowance) 


Notes : a/ As noted in Table B-6, the number of $1,000 exemptions for a 
taxpayer may be fractional or even negative as a result of 
adding to this sum all fractional residuals arising from a 
taxpayer's immigration to or emigration from Canada or from 
deemed partial residence of a non-resident taxpayer. All 
other numbers of personal exemptions are assumed to be 
integers, as are numbers of $100 standard deductions claimed. 
The residuals arise from constraining these latter numbers 
to be integral. 
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Notes (continued): 


v/ 


ee Nee he 
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Computed as the difference between each taxpayer's gross 
income from business and professional proprietorships and 
partnerships (prorated by share of net income in the case 
of a partnership) and net income from these sources, less 
total capital cost allowances claimed by taxpayer. Capital 
cost allowances deductible from other gross income has not 
been segregated from total capital cost allowances, and 
total business and professional expenses are consequently 
understated. If the (understated) estimate of expenses is 
negative for a taxpayer, it is arbitrarily revised to zero 
before being added into the total for the class. 


Includes dividends received as estate income. 


Includes bond and bank interest, mortgage interest, estate 
income, and other investment income from Canadian sources. 


Corresponds to entry entitled miscellaneous income in 
tables published in Taxation Statistics. 


Estimated in imputing numbers of dependants for a taxpayer. 
See notes to Table B-6,. 


Estimated as noted in footnote b/ except that capital cost 
allowances claimed are allocated over business and profes- 
sional income in proportion to total expenses claimed 
against each category of income. 
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TABLE B-9 


DISTRIBUTION OF SAMPLE GROUPS BY SAMPLE SIZE AND INCOME CLASS 


Sample Size 


1-4 5-9 10 - 14 15 - 2h 25 - 49 50 - 99 More than 

Income Returns Returns Returns Returns Returns Returns 99 Returns 
Less than $1 191 26 14 20 22 ? 2 
$ 1- 499 184 30 23 30 16 a 14 
500 - T49 175 kL 18 al 12 8 10 
750 = 999 186 ee) 16 uy 22 12 13 
1,000 - 1,2k9 232 55 22 25 29 22 18 
1,250- 1,499 288 72 51 29 15 18 15 
1,500- 1,749 316 71: 28 38 26 16 18 
1,750 - 1,999 340 78 27 34 26 18 19 
2,000 - 2,499 7h wef ho 45 56 34 48 
25 500'= e999 464 91 hy 39 kg 47 49 
3,000 - 3,499 hag 98 ho 43 61 by. Dk 
Big J00 = — 95999 411 90 he 47 55 Be 53 
4,000 - »499 UT 98 55 43 ho Be) 52 
4,500 - 4,999 370 81 30 LO ho 32 46 
5,000 - 5,499 peo 79 a 30 oT 30 hh 
5900 = age eign 29 Dx 36 32 36 
6,000 - 5499 302 67 30 B5 30 eal 29 
6,500 - 6,999 28h 63 30 23 51 28 el 
7,000 - 7,499 239 66 34 ok 5. 21 18 
7,500 - 7,999 2h7 66 23 20 26 22 13 
8,000 - 8,199 ahi 61 oT 23 20 19 11 
8,500 - 8,999 228 63 23 25 23 13 8 
9,000 - 9,99 220 56 28 20 23 10 5 
9, 2001 = - 93999 221 48 ok 21 20 7 5 
10,000 - 10,999 aoe {6s} 3h DD h6 ex) 29 
11,000 - 11,999 334 74 34 he De 37 ag 
12,000 - 12,999 318 65 35 i) 53 29 28 
13,000 - 13,999 283 75 37 i) ho 29 16 
14,000 - 14,999 279 12 3h 39 4O 25 10 
15,000 - 16,999 305 (é} 48 3h 67 43 30 
17,000 - 19,999 pra s (@; oo) he 60 38 ao 
20,000 - 2,999 B56 vE) yh he BS) 37 Wy 
25,000 - 29,999 270 73 38 ub 38 27 23 
30,000 - 34,999 26 Ce 36 oT 20 26 8 
55,000 - 39,999 60) 64 cy 2 ah 13 2 
40,000 - 49,999 BS7 59 33 20 28 14 4 
50,000 - 74,999 238 59 25 2h ak. 8 3 
75,000 - 99,999 189 28 8 > e) — be 
100,000 - 124,999 107 10 if 3 1 _ _ 
125,000 - 149,999 79 6 es _ — _ —_ 
150,000 - 174,999 51 4 uh _ ~ _ ~ 
175,000 = 199,999 22 3 _ _— _ _ — 
200,000 - 224,999 23 - - _ _ - _ 
225,000 - 299,999 28 hae! cia aa =ay a rae 
300 ,000 = 399,999 6 — _ _ _ ed _ 
400 ,000 a 499,999 4 ae aay Gers —- — — 
Over $500,000 8 = = = ~ _ —_ 
TOTAL 11,343 2,554 1,180 1,199 1517 902 875 


Note: As in Table B-3, income is defined as total assessable income as defined under current tax law. 
Sample size is defined as the number of sampled tax returns falling in each group. 
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TABLE B- 10 


SAMPLING RATE BY INCOME CLASS 


Number of Estimated Number 
Tax Returns of Individuals Sampling 

Income Sampled in Class Rate 
Less than $1 2,528 31,830 7.9 
$ 1 - tele) 8,069 300 ,113 2.7 
500 - 749 5,176 196 ,009 2.6 
750 - 999 6,075 B15 55 2.8 
1,000 1,249 9 ,087 257 ,850 Sed 
1,250 - 1,499 9,914 247 ,583 4.0 
1,500 - 1,749 10,402 254,320 eas 
1,750 - 1,999 10 , 738 263 , 478 Fpl 
2,000 - 2,499 23,535 566 ,584 4,2 
2,500 - 2,999 2h ,150 562,776 4.3 
3,000 - 3,499 23 296 538 ,2he 4,3 
3,500 - 3,999 22 ,966 52h ,112 yy 
4,000 - 4,499 Pe, SL) 501,710 uy 
4,500 “Zi 4,999 20 ,159 47 5309 4.5 
5,000 - 5,499 18 ,183 391,808 4.6 
5,500 - 5,999 14 ,883 305,013 49 
6,000 - 6,499 12,186 239 ,830 5.1 
6,500 - 6,999 9,638 LT1s979 5.4 
7,000 a 7,499 7,981 134,873 59 
7,500 bad 73,999 6,506 99 , 543 6.5 
8 ,000 = 8,499 9 9390 76 329 (at 
8,500 < 8 ,999 4 533 59,568 126 
9,000 - 9,499 3,859 48 ,082 8.0 
9,500 - 9,999 Dseo7 DOSTTE 9.0 
10,000 - 10,999 14,366 53 , 788 26.7 
11,000 - 11,999 12,860 34,372 37.4 
12,000 - 12,999 10 ,652 29 ,687 35.9 
13,000 - 13,999 8,266 20,245 40.8 
14,000 - 14,999 6,950 14,150 49.1 
15 3000 e 16,999 1) gotL 5) 9229 58.4 
17,000 - 19,999 14,564 20 ,049 72.6 
20,000 - 24,999 17,613 19,142 92.0 
25 ,000 = 29 5999 9,884 9,883 REY, 
30,000 - 34,999 5 ,497 Spey, 99.3 
35,000 - 39,999 3,461 3,461 100.0 
40,000 - 49,999 4 O74 4 O74 100.0 
50,000 - 74,999 3,270 3,270 100.0 
75,000 - 99,999 867 867 100.0 
100,000 - 124,999 3h 343 100.0 
125,000 - 149,999 177 177 100.0 
150,000 - 174,999 9h Qh 100.0 
175,000 - 199,999 ho ko 100.0 
200,000 - 224,999 27 27 100.0 
225,000 = 299,999 ho ho 100.0 
300,000 - 499,999 ) 9 100.0 
400,000 - 499,999 5 5 100.0 
Over $500,000 ig 12 100.0 
TOTAL 411,510 6,719 445 7.6 

Notes: As in Table B-3, income is defined as total income assessable under current 


tax law. The number of individuals sampled by each return in the sample was 
estimated as the reciprocal of the sampling rate for that return; the 
estimated number of individuals in each claim was calculated by simply 
summing the estimates obtained for each return in the class. The sampling 
rate in each income class was calculated simply by dividing the number of 
sampled tax returns falling in each class by the estimated number of 
individuals in the class. 


¥' 


q & Bo‘? oF = 
% 


| ; (ANS TENN WE CAs Dee: 


eee anL) uate ey ee@n4 iit we mae ceo 
a en a ae | i aa - 
- vinedirzin? te 


nerve # tel te ee 
7 we. ff Pom te < - = *'* 
m' a ‘ » - = > wf ai 
48 a ay a. es ape ows. >; Gee) 
4 ® ° ba L 
RO, OF : ori,e eat 
> S v 
Dee I© ‘ee x at) a oy) 
7 » . " 
ry 8 reO.8 » Va. 4 
> : Ale. wut 
2 re , i oa be 
re ee @ ait 
’ - 
. i ‘ ; rs P bed on it 
, (hs ee - i : Z 
- P Cre ‘ ba “ <= 
"yc er ies 2o.5 
ae . “ te 
te J oC t 
: ‘ ee ‘ von Fr 
r 4 ‘ rat << Paris d 
: = z xt PS (= 4 J 
og <" a | a 
a i ee. 
i i ie a 
g ~ i v *“+ \ 
4 a4 
‘ “ boa 
ry re .¢ 
X i 4 ao™ «| ~ 
: PA «he ve : 
’ : ee P ei. 
1 J 
t nm © zy » 
cae * f ‘ 
> & or. a 
rel it ae ted Me.? 
' 4 ’ * 
Ot eh ox 7 
i id iy wh ., ° 
i he - 
TO ar P 
iO oe’. A ( 
“ ove ti 
eye, Fi P 
toe » (0 t 
(4 ia 
“nat 9 * < 
‘ ¢ » 
"i .v. < 
we “eG 
tee re 
pA ‘ j 
y m ‘ i ° o- 
, ‘ Cy 
‘ 7. tr 
“t mw be ‘hr 
- ad my > _ . 
‘ Phe ' ry 
Peed : } 
= - a) a 
' 
: . i " Ae : i nd 
8 (emo! lated prio? oe et . <= : 
: So? Peal yeh «Fx ot ,?€24 J - 
ota whee " : . ean 
‘ -eLgrsn @6inwbivife '” feta of Ts * 
ets pi Linge s ed: Le nate kes wt? nse tapises 
4 4 : y “ — P P ‘ To 
nip nn Syn Se BRED Weert © Lal IV OE yer he Sey 8 gh PO 
- ai eninardn OE al a Rk — eet the 4.49°s) Neeley] 
cL ‘ by > Vn Viewie fs Palio . fa : ur enel Poet 1 F ay, ay otet. < by 
Of .7 89 vo ans) . 


lilies? « wos aoe ~Aiqeae: : 


» iv i] 
: -See (> af A) eleahicts ae 


4 
~~ 


APPENDIX C 


PARAMETER VALUES AND ALLOWANCES ASSUMED IN 
ESTIMATING EFFECTS OF THE COMMISSION'S PROPOSALS 


This appendix contains a list of assumptions and allowance 
parameters used in applying the programs listed in this monograph. 
Table C-1 contains definitions of each assumption parameter together 
with the value assumed for each parameter in computing the revenue 
estimates for 1964 presented in Chapter 3 of this study and in the 
three companion studies. Table C-2 contains the different values 
assumed for some parameters in computing the revenue estimates for 
1965 and 1970 reported in this study. Table C-3 provides the dif- 
ferent values of certain parameters assumed in computing the revenue 
and incidence estimates for 1964 presented in Volume 6 of the Com- 
mission's Report. Table C-4 contains definitions of each allowance 
parameter used in the programs along with the values of these para- 


meters defined in the Commission's recommendations. 


A discussion of the assumptions used in making the revenue 
estimates is contained in the Report in Chapter 35 and in Appendix A 


to Volume 6, 
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Parameter 


Number 


1 


10 


Alb & 


AW 


13 


14 
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TABLE C-1 


LIST OF ASSUMPTION PARAMETERS 
WITH VALUES ASSUMED FOR 1964 


Assumed 
Description Value 
Fraction of $550 dependants who are dependent 
children 0.T 
Current corporate tax base attributable to 
resident individuals $1,962 million 


Additions to corporate tax base attributable 
to resident individuals 


Current corporate tax attributable to 
resident individuals 


Additions to corporate tax base attributable 
to resident individuals from companies in 
the extractive industries 


Total dividends reported on tax returns 


$180 million 


$804 million 


$77 million 


filed by resident individuals $450.7 million 


Ratio of accrued goodwill gains on corporate 
stock to dividends 


Fraction of investment expense deductions 
accounted for by stockholder depletion 


Ratio of accrued capital gains on rental 
property to net rental income 


Ratio of realized capital gains on unin- 
corporated business assets to net income from 
unincorporated businesses 


Ratio of accrued capital gains on fixed-income 
investments to income from interest, estates, 
and other investments 


Fractional increase in CCA's resulting from 
acceleration of CCA's for unincorporated 
businesses 


Fractional increase in loss write-offs claimable 
for unincorporated businesses 


Ratio of unreported interest to income from 
interest, estates, and other Canadian investment 
income 


1.45 


0.33 


1.0 


0.04 


0.15 


Ost 


Parameter 
Number 


15 


16 


L7 


18 


19 


20 


el 


ee 


23 


2h 


2) 


26 


27 
28 


29 
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TABLE C-1 (continued) 


Description 


Policyholder investment income attributed 
per dollar ot income from interest, estates, 
and other Canadian investment income 


Policyholder investment income attributed per 
dollar of total assessable income in excess of 
threshold defined by assumption parameter 27 


Fractional reduction in policyholder investment 
income for tax units whose head is aged over 65 


Ratio of attributed participating dividends to 
policyholder investment income 


Ratio ot average claimable employment expenses 
(excluding union dues and unemployment insurance 
contributions) to employment income over 
threshold specified by parameter 20 


Employment income threshold for employment expense 
attribution 


Maximum likely to be claimable as employment expense 


Fraction of dependent children under school- 
entering age 


Fraction of $300 dependants who are dependent 
children 


Ratio ot insurance proceeds to other investment 
income 


Ratio of insurance proceeds to total currently 
assessable income above threshold specified by 
parameter 26 


Threshola level of currently assessable income for 
attribution of insurance proceeds 


Threshold for policyholder investment income 
Increase in taxable income as a result of reforming 


charities from each taxpayer overclaiming charitable 
donations 


Increase in taxable income from taxpayer using standard 
deduction resulting from changes in the application of 


the deduction 


Assumed 
Value 


0.20 


OF> 


0.6 


0.04 


$4. , 000 


$1,500 
0.3 
V0 


0.20 


0.01 


$5 , 000 


$3 , 000 


$60 


$45 


Parameter 
Number 


30 


we 


32 


Oh 


41 


Me, 


45 
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TABLE C-1 (continued) 


Description 


Ratio of top employee benefits to salary in 
excess of threshold specified by parameter 31 


Threshold salary for attribution of top 
employee benefits 


Ratio ot attributable non-employee benefits 
to business and professional expenses claimed 


(excluding CCA's) which are attributable to 
professional and commission income 


Ratio of employee group insurance contributions 
and other employee benefits to wages 


Maximum likely value for general employee benefits 


Ratio of gift and estate tax attribution to gifts 
and bequests received 


Proportion of gifts and bequests which are 
intra-family 


Maximum amount of unreported interest per taxpayer 


Fraction of taxpayers aged 65 or over who are 
assumed to be retired 


Fraction of $550 dependants eligible for youth 
allowances 


Average family allowances received per recipient 
child 


Youth allowance per recipient 

Proportion of taxpayers over 65 who are over 70 
Proportion of taxpayers receiving employment income 
who are contributors to unemployment insurance 
system 

Ratio ot corporate tax credited to trustees of 
Registered Retirement Savings Plans to total 


Registered Retirement Savings Plan premiums 


Minimum likely amount deducted as stockholder 
depletion by individual taxpayer 


0.725 


0.085 


$200 


52 


a? 


54 


22 


29 
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TABLE C-1 (continued) 


Description 


Fraction of dividends from Canadian companies 
not carrying credit for corporate tax 


Revenue from tax on section 105 distributions 


Total dividend income received by taxpayers 
with income over minimum income assumed for 


Assumed 
Value 


0.1 


$6 million 


taxpayers receiving section 105 distributions $155.4 million 


Minimum currently taxable income of taxpayers 
receiving section 105 distributions 


Maximum benefits attributable to any taxpayer 


Fractional adjustment of projected gifts required 
to correspond to estimated aggregate amount 


Fractional adjustment of projected policyholder 
investment income required to correspond to 
estimated aggregate amount 


Fractional adjustment of projected participating 
dividends required to correspond to estimated 
aggregate amount 


Fractional adjustment of insurance proceeds 
estimated to arise from extra-family sources 
required to correspond to estimated aggregate amount 


Maximum ratio of total benefits attributed for any 
taxpayer to the sum of wages and business and 
professional expenses claimed 


Fraction of Quebec taxpayers overclaiming charitable 
donations 


Fraction of other taxpayers overclaiming charitable 
donations 


Fraction ot employed and self-employed taxpayers 
under 65 not contributing to Canada Pension Plan 


Minimum annual salary on which benefits are likely 
to be attributable 


Minimum dividend income likely to be associated 
with deduction of stockholders’ depletion 


$25 , 000 


$1, 500 


0.58733 


0.49% 


0.44 


1.9748 


0.05 


$2,500 


$2 , 000 


Parameter 


Number 


61 


62 


63 


69 


Caw 


TABLE C-1 (continued) 


Description 


Minimum number of dependent children per taxpayer 
required to qualify taxpayer as supporter of 
family 

Fraction ot miscellaneous deductions assumed to 


be disability allowances 


Fraction of miscellaneous deductions assumed to 
be educational allowances 


Ratio of average tuition payments to educational 
deductions currently aLlowed 


Average tuition payments assumed 


Ratio of currently deductible personal expenses 

to business and professional expenses claimed 
(excluding CCA's) which are attributable to income 
from unincorporated businesses 


Maximum likely value for personal expenses attributable 


to recipients of unincorporated business income 
totalling less than threshold defined by parameter 68 


Threshold level of unincorporated business income 


Fraction of charitable deduction reform effects 
subsumed in 1966 changes in tax law 


Elasticity Assumptions (extrapolation from base year of data) 


70 
71 


ite 


13 


74 


75 


76 


Fractional increase in the number of taxpayers 


Average fractional increase in each taxpayer's 
wages and salaries 


Average fractional increase in income from self- 


employment for each taxpayer 


Average fractional change in unincorporated business 
income for each taxpayer 


Average fractional increase in income from farming 
and fishing for each taxpayer 


Average fractional increase in corporate profits 
and dividends for each taxpayer 


Average fractional increase in other investment income 
for each taxpayer 


Assumed 
Value 


1.0 


0.06 


0.9 


1 OT 
$4.00 


0.005 


$500 
$2,500 - 


0.7 


0.0 


0.0 
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TABLE C-1 (continued) 


Parameter Assumed 
Number Description Value 
Assumptions Regarding the Composition 
of Corporate Income and Taxes 
ime Current corporate tax base allocated to 
resident owner of large companies not receiving 
specific concessions $1,199 million 
78 Current corporate base allocated to resident 
owners of small companies not receiving 
specific concessions $502 million 
79 Current corporate base allocated to resident 
owners of companies in industries receiving 
special concessions $261 million 
80 Current corporation income taxes allocated to 
resident owners of large companies not receiving 
special concessions $597 million 
81 Current corporation income taxes allocated to 
resident owners ot small companies not receiving 
specific concessions $108 million 
82 Current corporation income taxes allocated to 
resident owners of companies in industries 
receiving special concessions $99 million 
83 Current average marginal rate of tax on small 
companies 0.40 
84 Total unreported dividends attributable to 
resident individuals $29.7 million 
85 Ratio of unreported dividends to reported 
dividends for individuals not taxable when 
sampled O55 
86 Additional fraction of reported dividends not 
reported by retired non-taxable individuals OoL 
87 Maximum taxable income of taxed individuals 
who are presumed to under-report dividends $10, 000 
88 Fraction of reported dividends assumed to be 
unreported by taxed individuals 0505 
89 Maximum dividend under-reporting assumed for 
any taxpayer $500 
90 Fraction of allocable corporate base allocated 


95911—15 


to resident stockholders 0.97 


Parameter 
Number 


91 


92 


93 


94 


99 
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TABLE C-1 (continued) 


Description 


Fraction of dividends paid out of untaxed 
surplus realized as gains within year 


Difference between capital cost allowances 
currently claimed and reported depreciation 


Untaxed income resulting from the effect 
of proposed incentives for companies in the 
extractive industries 


Untaxed income resulting from the effect of 
special incentives for new and small 
corporations 


Other corporate income on which tax is 
deferred, excluding the effect of loss 
offsets 


Miscellaneous Assumptions 


96 


=A 


98 


99 


100 


101 


102 


103 


Fraction of accrued goodwill gains realized 
on corporate equities 


Fraction of accrued capital gains realized 
on real estate 


Ratio of income on which tax is deferred to 
currently taxable income for unincorporated 
businesses 


Ratio of unrealized capital gains to realized 


capital gains for unincorporated businesses 


Additions to corporate tax base attributable 
to resident individuals which are limited 
to real estate 


Ratio of increase in before-tax corporate 
income from real estate reflecting shifting 
of corporate tax changes to additions to 
the tax base in that industry 


Fractional increase in net rental income of 
individuals to reflect shifting of general 
tax changes affecting rental income 


Fractional increase in accrued goodwill gains 


on corporate equities resulting from adjust- 
ments to tax changes 


Assumed 
Value 


0.4 


$140 million 


$15 million 


$60 million 


$55 million 


0.68966 


0.5 


$15 million 


0.5 


0.08 


Parameter 
Number 


104 


105 


106 


107 


108 


109 


Note: 
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TABLE C-1 (continued) 


Description 


Ratio of increase in before-tax corporate 
income of companies in the extractive 
industries resulting from shifting of 
corporate tax changes to tax base added 
in that industry 


Elasticity of accrued untaxed corporate 

income with respect to changes in taxed 

corporate income resulting from shifting 
of corporate tax changes 


Minimum average dividend under-reporting 
for individuals aged 40 and over not 
taxed in 1964 


Untaxed corporate income of profitable 
companies resulting from the offset of 
income against previous losses 


Losses of unprofitable companies 


Fraction of accrued goodwill gains 
realized on fixed-income securities 


Assumed 
Value 


0.5 


1.0 


$20 


$210 million 


$400 million 


0.769 


Except where otherwise noted, all assumptions relating to 
the corporate tax base refer to that portion of the 
corporate tax base (or subclass thereof) which is allocable 
to resident individuals. 
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TABLE C-2 


LIST OF PARAMETERS WITH DIFFERENT 
VALUES ASSUMED FOR 1965 AND 1970 


Parameter Assumed Values 
Number Description 1965 1970 
70 Fractional increase in the number of 
taxpayers -038 148 
yak Average fractional increase in each 
taxpayer's wages and salaries -070 - 320 
Te Average fractional increase in income from 
self-employment for each taxpayer 070 2320 
73 Average fractional change in unincorporated 
business income for each taxpayer .004 2239 
7 Average fractional increase in income from 
farming and fishing for each taxpayer .082 0335 
75 Average fractional increase in corporate 
profits and dividends for each taxpayer -039 282 
76 Average fractional increase in other 
investment income for each taxpayer O49 294 
Note: These parameter values represent changes from 1964, the year 


to which the sample data pertain. 


ei Me 


TABLE C-% 


PARAMETERS FOR WHICH DIFFERENT VALUES 
ARE ASSUMED IN REPORT AND IN STUDIES 


Parameter 


10 
im 
30 
32 
46 
52 
53 
54 
66 
67 
69 
84 
85 


Value Assumed 
in Report 


0.08 
0.195 


0.05 


0.2 
0.95238 
0.03 
$1,500 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
1.0 
20 


1.0 


Value Assumed 
in Studies 


0.04 
0.15 
0.06 
0.05 
0.10 
0.493 
0.44 
1.764 
0.005 
$500 
0.7 
$29.7 million 
0.3 

Ol 
$10, 000 
0.2 
$500 
0.97 
0.4 


0.5 


10 


13 


14 


L5 


16 
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TABLE C-4 


RATES AND LIMITS OF RECOMMENDED ALLOWANCES 


Allowance 


Tax credit for dependants other tnan dependent 
children 


Fraction oft employment income deductible under 
standard employment expense deduction 


Dollar limit on standard employment expense 
deduction 


Working mother credit 


Additional credit for working mothers with children 
below school-entering age 


Exemption as per current definition for single 
taxpayers 


Exemption for taxpayers filing as married 


Additional exemption for taxpayers with at least 
one dependent child receiving family allowances 


Exemption for dependent children other than the 
first receiving family allowances 


Exemption for dependent children not receiving 
family allowances 


Exemption for other dependants receiving family 
allowances 


Exemption for other dependants not receiving 
family allowances 


Fraction of tuition allowed as tax credit for 
students in post-secondary educational institutions 


_ Additional tax credit allowed for expenses of 


students in post-secondary education who are 
taxed as separate tax units 


Fraction of allocable corporate tax refundable 
to shareholder 


Fraction of goodwill gains deductible in 
computing tax liability 


Recommended 


Values 


$100 


0.05 


$500 
$80 


APPENDIX D 


DEFINITION OF TAX REFORMS AND OF VARIABLES 
ESTIMATED FOR EACH TAX RETURN 
The variables listed in this appendix are all computed 
in subroutine BASADJ from the data for each tax return described 
in Appendix B, using the assumption parameters described in 
Appendix C. The variables are all stored in two "COMMON" lists. 
Those defined in Tables D-1, D-2 and D-3 are stored along with 
the KLAS and SUM ARRAYS (read in for each tax return and describ- 
ed in Appendix B) in a COMMON list labelled "DATA". Those defined 


in Table D-4 are stored in a separate COMMON list labelled "ADJUST". 


The tax reforms for which provision has been made in these 
programs are listed in Table D-5. Certain of these reforms have 
not been recommended by the Commission or are incorporated with 
other reforms in the tables presented in the Report and in Studies 
numbers 25 to 29; a listing of reforms as shown in published tables 
is presented in Table H-l of Appendix H. The latter listing is 


obtained by setting ISW(4) = 2. 


The relationship between the tax reforms listed in Table D-5 
and the variables listed in Tables D-1, D-2 and D-3 is shown by the 


concordance presented in Table D-6, 
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TABLE D-2 


PERSONAL INCOME TAX BASE CHANGES 
ESTIMATED IN BASADJ 


Cause of Base Change 


Substitution of zero-rate bracket for the $1,000 personal 
exemption for each taxpayer 


Substitution of the additional zero-rate bracket in the 
family rate schedule for the second $1,000 personal 
exemption for married taxpayers or heads of households 
Integration of the personal and corporation income taxes 
Widening the integrated corporate base 

Taxation of capital gains on corporate stock 
Elimination of shareholder depletion 


Taxation of capital gains of unincorporated businesses 


Acceleration of capital cost allowances for unincorporated 
businesses 


Extension of loss carry-over provisions 
Inclusion of hitherto unreported interest income 


Attribution ot lite insurance investment income to policy- 
holder 


Attribution of participating dividends 
Liberalization ot employment expense deductibility 


Provision of an optional standard allowance for employment 
expenses 


Attribution of employee benefits and personal benefits 
expensed by self-employed individuals 


(Reserved) 
Deduction of unemployment insurance premiums 
Inclusion of inter-family gifts and bequests 


Inclusion ot family allowance payments 


Base 
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TABLE D-1 (continued) 


Cause of Base Change 
Inclusion of other transfer payments 


Elimination of the old age exemption for taxpayers aged 
over 70 


Changed definition of medical expenses 
Change in the administration ot charitable donations 
Change in the standard deduction 


Substitution of tax credits for the presently allowed 
deductions for part of educational expenses 


Substitution of tax credits rather than exemptions for 
dependants other than dependent children 


(Reserved) 


Inclusion of mortality gains (not recommended by this 
Commission) 


Substitution of tax credits for exemption allowed by the 
first dependent child in a femily 


Substitution of tax credits for exemptions presently 
allowed for other dependent children 


(Reserved) 
Taxation of non-business capital gains 
Eliminated exemptions not elsewhere classified 


Deferral of tax on cash distributions out of untaxed 
corporate surplus 


Elimination of dividend under-reporting 
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TABLE D-2 


CHANGES IN TAX CREDITS ESTIMAED IN BASADJ 


Cause of Change 


Tax credit for dependent children other tnan the first 
child 


Elimination of the dividend tax credit 


Allowance of a tax credit for working mothers 


Allowance of a tax credit for educational expenses 


Substitution of a tax credit for exemptions now allowed 
for dependants other than dependent children 


Additional tax credits allowed for dependants not now 
eligible for exemptions 


Tax credit for first child 


Refundable tax credit for proposed corporate taxes on 
original corporate base allocated to individuals 
sampled 


Refundable tax credit for allocated corporation 
income tax on additions to the corporate tax base 


Variable 
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TABLE D-3 


CURRENT TAXES AND TAX CHANGES 
ESTIMATED IN BASADJ 


Definition of Variable 


Current Personal Income Tax Base and Taxes 


OLDPTX (1) 
OLDPTX (2) 


OLDPIX (3 ) 


OLDPTX(4) 


Current personal income tax base (taxable income) 
Current tax credits 


Current personal income tax (including old 
age security tax) 


Current corporate tax base 


Corporate Income Tax 


CORTAX(1) 


CORTAX(2) 


CORTAX (3 ) 


CORTAX (4+) 


Current corporate income tax attributable to 
taxpayer (including taxes on section 105 distributions) 


Average change in corporate income tax resulting 
from elimination of the dual rate 


Change in corporate income tax resulting from 
widening the corporate base 


Credit of corporate taxes attributable to retirement 
income attributable to taxpayer 


Gift and Estate Taxes 


GIFTAX (1) 


GIFTAX (2) 


GIFTAX (3) 


Current taxes on gifts and bequests attributable 
to taxpayer 


Change in gift and estate taxes on intra-family gifts 
received by taxpayer 


Change in gift and estate taxes on inter-family gifts 
received by taxpayer 


Proposed Personal Income Tax Base and Tax 


REFTAX(1) 
REFTAX(2) 
REF TAX (3 ) 
REFTAX (4) 


REFTAX(5) 
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Proposed personal income tax base (taxable income) 
Proposed non-refundable tax credits 

Proposed personal income tax 

Proposed corporate income tax attributable to taxpayer 


Proposed refundable credits for allocated corporate tax 


Variable 
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TABLE D-4 


OTHER VARIABLES DEFINED IN BASADJ 


Definition of Variable 


Adjustments Required to Obtain the Current 
Tax Base from Reported Data 


DELTA(1) 


DELTA(2) 


DELTA(3 ) 


DELTA( +4) 


Increase in taxable income resulting from the improved 
control of the validity of charitable deductions 


Reduction in taxable income resulting from additional 
retirement income plan premiums deductible following 
the enactment of the Canada Pension Plan 


Taxable old age security pension income extended to 
taxpayers aged 65-70 


Increase in taxable income resulting from elimination 
of the $500 exemption for taxpayers aged 65-70. 


Miscellaneous Memoranda Variables 


OTHER (1) 
OTHER (2) 
OTHER (3 ) 


OTHER(4) 


OTHER (5) 


OTHER (6) 


OTHER (7 ) 
OTHER (8) 


OTHER (9) 


OTHER (10) 


OTHER (11) 


Capital gains realized on real estate 
Life insurance proceeds bequeathed outside the family unit 
Youth allowance proceeds 


Canada Pension Plan premiums levied on income from 
self-employment 


Top-employee benefits attributable 

Attributable personal expenses now deducted by self- 
employed individuals in computing professional and 
commission income 

Group insurance benefits, etc. 

Tax on section 105 distributions 

Attributable personal expenses now deducted by self- 
employed individuals in computing unincorporated 


business income. 


Dividends received by individuals which would have been 
paid out of untaxed surplus. 


Currently unreported dividends received by individuals 
taxable when sampled but reporting assessable income 
below the threshold specified by ASS(87) 


Variable 


OTHER (12) 


OTHER (13 ) 


OTHER (14) 


OTHER (15) 


OTHER (16) 
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TABLE D-4 (continued) 


Definition of Variable 


Currently unreported dividends received by individuals 


not taxable when sampled 


Adjustment of before-tax corporate income caused by 
shifting of changes in corporate tax 


Adjustment of net rental income to compensate for 
general tax changes 


Adjustment of goodwill gains on corporate common 
stock in response to general tax changes 


Dividends reported by individuals assumed to have 
received unreported dividends 


Elements of Income not Brought into 
Comprehensive Personal Tax Base 


UNTAXD(1) 


UNTAXD(2) 


UNTAXD(3 ) 


UNTAXD( 4) 


UNTAXD(5) 
UNTAXD(6) 


UNTAXD(7 ) 


UNTAXD(8) 


UNTAXD(9) 


UNTAXD(10) 


UNTAXD(11) 


Corporate income on which tax is deferred owing to 
the difference between capital cost allowances 
claimed and reported depreciation 


Corporate income on which tax would be deferred 
owing to the effect of proposed incentives to 
companies in the extractive industries 

Corporate income on which tax would be deferred 
owing to the effect of proposed incentives for new 
and small corporations 


Other corporate retained income on which tax would 
be deferred 


Unallocated corporate retentions of taxed income 
Unrealized goodwill gains accrued on common stock 


Income of unincorporated businesses on which tax is 
currently deferred 


Additional ordinary income of unincorporated busi- 
nesses on which tax would be deferred under the 
Commission's proposals 


Unrealized capital gains accrued on assets of unin- 
corporated businesses 


Unrealized capital gains accrued on real estate 


Unrealized capital gains accrued on fixed-income 
securities 
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TABLE D-5 


LIST OF REFORMS PROVIDED FOR IN PROGRAMS 


1. Changes in Tax Rates 


1.1  lLowering the rate schedule for all taxpayers to the proposed 
schedule for individuals. 

2 Additional reduction in the rate schedule for families. 

Pe Use of a tax credit rather than an exemption to allow for 
the first child in each family. 

4 Use of credits rather than exemptions to allow for addi- 

tional dependent children. 
1.5 Effect of income averaging. 
1.6 Eliminated family exemptions not elsewhere shown. 


2. Taxation of the Family as_a Unit 


2.1 Aggregation of the income of husbands and wives, assuming 
that income is taxed at the rates of the proposed schedule 
for individuals. 

awe Effect of taxing the aggregated income of husbands and wives, 
under the family rate schedule. 

2.3 Aggregation of income of parents and children. 

ah Effect of elimination of taxes on transfers of wealth between 
members of a family unit. 


Sere Ss he Taxation of 
Corporate Source Income 


OF ats Integration of corporation and personal income taxes (excluding 
the effect of bringing unreported dividends into the tax 
base). 

2 Widening the corporation tax base. 

5 Taxation of capital gains and allowance of capital losses on 
corporate stock, 

4 Disallowance of shareholder depletion deductions. 

5 Deferment of taxes on cash distributions out of untaxed 
surplus. 

6 Inclusion of unreported dividends. 


4, Changes in the Taxation of Other 
Business and Property Income 


4.1 Deferment of taxes on the investment income of Registered 
Retirement Income Plans. 

4.2 Taxation of capital gains and allowance of capital losses 
of unincorporated businesses. 

AS Acceleration of capital cost allowances for unincorporated 
businesses. 


De 


6, 


T. 
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TABLE D-5 (continued) 


Extension of loss carry-over provisions for unincorporated 
businesses. 


Extension of reporting controls to bring unreported interest 


into the tax base. 


Attribution of life insurance policyholder investment income, 


Attribution of participating dividends paid by credit 


unions, co-operatives and mutual life insurance companies. 


Taxation of non-business capital gains and allowance of 
non-business capital losses. 


Changes in the Taxation of 
Employment Income 


Liberalization of the definition of deductible employment 
expenses. 

Optional standard expense allowance. 

Attribution of employee benefits. 

Working mother credit. 

Deductibility of unemployment insurance. 


Other Changes Resulting from Adoption 
of the Comprehensive Tax Base 


Inclusion of gifts and bequests. 

Inclusion of family allowances. 

Inclusion of other transfer payments. 

Taxation of mortality gains (not recommended by 
the Commission). 


Changes in Concessionary Allowances 


Elimination of the old age exemption. 

Changed definition of medical expenses. 

Improvements in the control of charitable donations. 

Change in the standard deduction. 

Provision of additional educational allowances in the form 
of tax credit. 

Allowance of credits rather than exemptions for dependants 
other than dependent children. 

Extension of tax credits to dependants not now eligible 
for exemptions. 
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TABLE D-6 


CONCORDANCE OF REFORMS WITH CHANGES 
IN BASE, CREDITS, AND OTHER TAXES 


Internal Change in Change in 
Reform Base Change Corporation Gift and 
Reform Number Change in Credits Income Tax Estate Taxes 
eet iL a _ = —_ 
Lee 2 2 —_ — “= 
1.3 36 29 i —~ ~ 
boy OF 30 1 — = 
LSD 5 = = — _ 
1.6 LO 55 _ — -— 
2él 6 —_ a= ~— — 
Cue é — — _ _ 
2.3 8 = _ _ = 
24 9 — — — 2 
ayia 10 3 2 2 = 
Dae Ji. 4 — 5 — 
oe 12 5 _ ~ - 
a4 13 6 _ — — 
525 41 34 _ _ — 
536 4a 35 _ — _ 
41 38 31 — 4 — 
4.2 ie vi —_ — — 
RES aS 8 _ _ — 
yok 16 9 _ _— — 
4.5 17 10 — — em 
4.6 18 vio — _~ _ 
a 19 12 — — — 
4.8 D9 pl: — _— ee 
py ia. 20 13 —_ _ — 
Bae al 14 — — _— 
535 22 15 _~ a — 
aa 23 16 o] —_ — 
Sf 24 lf — _ = 
61 25 18 — — 3 
6.2 26 19 — ae — 
6.3 27 20 -— —_ — 
6.4 35 28 —_ be an 
faa 28 au — — — 
Gas 29 22 == —_— = 
(es, 30 23 _ _ — 
Weel 41 pal _ — _ 
(Pye 32 25 4 _ — 
7.6 33 26 5 sa aa 
fiw 34 27 6 = = 


APPENDIX E 


PROGRAM PARAMETERS 


The program parameters defined in this appendix are all 
read in by subroutine PROGCN. Table E-l provides definitions 
of a number of general program control switches and parameters. 
Table E-2 presents definitions of switch settings used to 
control the nature of the output. Table E-3 provides definitions 
of the switches used to obtain appropriate combinations of tables. 
The format in which values of these parameters should be punched 


on cards is indicated in the listing of PROGCN in Appendix A. 


The actual values to which the switches defined in 
Tables E-l and E-2 are set to produce the output presented 
in the Report and in the two companion studies are shown in 


Table E-. 


eg 
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TABLE E-1 


PROGRAM CONTROL PARAMETER SETTINGS 


Parameter Possible Parameter Definitions Denotation of 
Name - Values or Function Switch Values 
NRSCHD NS Number of rate — 
schedules to be 
analyzed 
NASS eds) Number of assumption ~ 
sets to be analyzed 
DATE 12 alphameric Date of run (output = 
characters identification) 
KCHNGE 0,K Stratification of O = Suppress 
(K>0) input data into stratification 
subsets defined by K = Classification 
classification K index used for 
stratification 
ITUDEF 152 Definition of tax 1 = Unaggregated 
units for which taxpayers 
input data have 2 = Households 
been obtained 
TDATA doa eu tt Form of input data 1 = Standard binary 
format 


2 = Original sample 
tape format 

3 = Standard BCD 
format 

4 = Intermediate 
output format 


NISETS a Number of proration —_ 
bases to be followed 
in RVTAB2 calculations 


IBASIS dise Proration basis for 1 = Equal proration 
allocating reforms over all base 
in RVTAB2 calcula- changes 
tions 

2 = Category-by- 
category 


proration of 
base changes 


IORDER (K) Any permutation Order in which reform 
(K = 1,7) of the numbers categories are to be a 
ig oe mgt evaluated in RVTIAB2 


prorations 


eo. 


TABLE E-2 


SWITCH SETTINGS TO CONTROL FORM OF OUTPUT 


Switch Possible Denotation of 
Name Values Function Controlled Non-Dyadic Switches d/ 
ITPWRT One Write intermediate output on tape ~ 
IDBGSW 0,1,2 Print intermediate output for - = poe car a 
fi 2 t ds = Write output only 
irst 12 data records a/ 2 = Also write out intermediate output in RVTAB2 
rsw(1) 0,1 EDIT data records as specified 
in "EDIT" subroutine b/ a 
Isw(2) 0,K End on record count O = End on encountering FLAG record 
(K>0) instead of on K = End after processing 
encountering "FLAG" record c/ K-TH record 
rsw(3) 1,2,3 Income classification 1 = Comprehensive base taxable income 
basis (type of income used) 2 = Currently assessable income 
% = Total income accrued 
ISw(4) 0,K Suppression of details in RVTAB2 O = Function not used 
(K>0) output and merger of base (33) K = Index of base into which 
with base (K) base (43) is merged 
Isw(5) 0,1 Base calculations on averages for 
each data record rather than totals _— 
Isw(6) 0,1 Base current tax calculations on 
Mini-Budget tax rates — 
Tsw(7) -1,0,1 Selection of subsamples O = Function not used 
-1 = Write selected subsample on 
punched cards; process entire sample 
1 = Process subsample only 
Isw(8) Dupe Include effects of tax shifting and 
other adjustments —_ 
Isw(Q) rayne Define total income to include 
untaxed accruals _ 
Isw( 10) 0,1 Replicate exact calculations under- 
lying estimates presented in Report — 
TSW(11) 0,K Read data in expanded format with 0 = Function not used 
(K>0) additional classifications K = Number of classification variables 
Isw(12) 152534 Define fineness of income 1 = 47-class grid 
classification 2 = 2f-class*erid 
% = 20-class grid 
4 = 10-class grid 
ISW(13) lye Selection of integration 1 = Carter proposals 
alternative 2 = Dividend integration 
ISW(14) 12 Selection of capital gains 1 = Carter proposals 
tax alternative 2 = U.S.-type capital gains tax 
ITABCN 0,1 Show all tables for cross- 
classification subsets —_ 
IXKSUP(K)(K 1,30) O51 Show tables for particular cross 
classification subset K provided 
that ITABCN4O eu 
Notes: a/ Number of records printed can be changed by altering the parameter "KOUNT" initialized in first 


statement of MI8R2. 
b/ "EDIT" subroutine to be supplied by user. 
c/ FLAG is a "-1" stored in first element of KLAS array. 


a/ In the case of dyadic switches, the function listed for the switch is performed when the switch 
variable has a value of unity. 
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SABLE E-3 


SWITCH SETTINGS TO SELECT 
TABLES TO BE GENERATED 


("ITABSW" ARRAY) 


Table 
Control Possible Table Subroutine(s) Denotation of Non- 
Switch Values Controlled Dyadic Switches 
1 Oe. RVTAB2 _ 
2 Orr ACINC2 _ 
3 Onn INCID2, ACCDEL _ 
h Ochs? MARTAB O = No table produced 
1 = All tables 
2 = Tables not produced 
for each income class 
5 O5152 COMPEF (calculation O = No table produced 
of tax changes) 1 = Calculation based on 
average tax rates 
2 = Calculation based on 
proration of tax 
changes over base changes 
6 Ocr.2 COMPEF O = No table produced 
(Calculation of l= Average marginal 
marginal tax rates) tax rates 
2 = Tax change assuming 
all income from 
source to be marginal 
1 Onael DETCOR — 
8 O152;55 BASTAB, BASKLS O = No table produced 
lL = All tables 
2 = BASKLS tables 
+ BASTAB tables for 
all income classes 
3 = BASKLS tables only 
9 OFL SUMRIZ _ 


10 Or SUMDAT, SUMSAM _ 
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TABLE E-4 


CONTROL VAIWES USED IN APPLICATIONS 


Revenue and Incid- 


ence Estimates Pre- Revised Estimates 
sented in Report Presented in Studies 
Full Example Example Studies 25, Study 

Output Control Sample Groups Groups 26 and 29 28 
ITPWRT 0 0 0 0 ) 
IDBGSW 0 0 O ) 0 
ISW(1) a 1 O 0 0 
ISW(2) © T 46 0 0 
ISW(3) i 1 si 1 1 
ISwW(4) 2 2 0 2 2 
Isw(5) ) 1 i O ) 
ISW(6) 0 ) 0 i. a 
ISWw(7) O O ) @) 0 
ISw(8) ) fe) 0 0 O and 1 
ISw(9) ©) ) e) ) 1 
ISW(10) 1 ‘9 0 O 9) 
ISW(11) @) @) ©) @) fe) 
ISW(12) 5 3 3 3 3 
ISW(13) 1 3 1 a a 
ISW(14) ct 1 ie Zz 1 
ITABCN @) 0 © 0 0 
IXKSUP(K), all K O 0 ©) @) 0 
Program Control 

KCHNGE O and 4 0 0 O and 4 0 
ITUDEF “ 1 1 a 1 
IDATA ue 3 3 1 1 
IBASIS 1 vi 1 a 1 


Note: The incidence estimates presented in Study 26 (Who Benefits and 
Who Pays) and in Tables 36-8 and 36-9 in Chapter %6 of Volume 
of the Report are obtained with KCHNGE set to 4; all other estimates 
are obtained with KCHNGE = 0. In Study 28 (Changes in Direct Taxes 


on the Components of Income), ISW(8) is set to 1 to obtain the 
estimates presented in Appendix H to that study. 
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APPENDIX F 


SUMMARY OF DATA COLLECTED FROM TAX 
RETURNS CLASSIFIED BY INCOME 


This appendix contains a summary of the data accumulated from the 
411,510 tax returns in the preliminary 1966 Taxation Statistics sample 
furnished to the Commission by the Department of National Revenue. These 


data are the elements of the "SUM" array defined in Table B-8 of Appendix B. 


Table F-1 presents this summary for tax returns classified by total 
income assessable under 1964 tax law, as reported on these tax returns. 
The 47 income classes are as defined in Table B-3 of Appendix B. ‘The data 
are obtained by simply adding together the corresponding data accumulated 
for each group of 1 or more tax returns falling in each income class. 
Table F-2 shows the tax changes estimated for the tax returns in each of 


the 47 income classes. 


Table F-3 presents the corresponding summary for groups of tax 
returns classified by estimated comprehensive-base taxable income (that is, 
by comprehensive income less personal deductions under the Commission's 
proposals). The classification is as shown in Table 4 in Chapter 3. It 
should be emphasized that each group of tax returns (grouped by the 
classification procedure described in Appendix B) was classified as a 
unit, according to the estimated comprehensive-base taxable income for 
the average tax return in each group. A table corresponding to Table F-2 
for tax units classified by comprehensive-base taxable income is presented 


in Appendix H as Table H-5. 
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APPENDIX G 


NUMBERS OF FAMILIES WITH MULTIPLE INCOME 
RECIPIENTS IN DIFFERENT INCOME CLASSES 


The tables presented in this appendix summarize a set of data on the 


joint distribution of families with more than one income recipient by income 


classes of the recipients. The data consist of five 27 x 27 matrices of 


numbers of families, as follows: 


1. 


Numbers of couples with both husband and wife receiving income, 
distributed by income of spouses. This matrix is summarized in 


Table Gl. 


Numbers of families with 1 parent receiving income and 1 child 


receiving income, distributed by incomes of parent and child. 


Numbers of families with 1 parent and 2 children receiving income, 
distributed by income of parent and total income of children. 


This and the previous matrix are summarized in Table Ge. 


Numbers of families with 2 parents and 1 child receiving income, 


distributed by total income of parents and income of child, 


Numbers of families with 2 parents and 2 children receiving 
income, distributed by total income of parents and total income 
of children. ‘This and the previous matrix are summarized in 


Table G-3. 


The data were derived from the output of a special analysis performed 


by the Department of National Revenue using its master file of all Canadian 


taxpayers to match individuals filing tax returns with the same surnames 


95911—17 


Oks 


2h6 


and addresses. Relationships were projected from age, sex, and marital 


status of each individual. 


The numbers of families with different numbers of children receiving 
income were estimated from two sets of data: (1) data on the joint income 
distribution of parents and children ("children" including 1, 2 or more 
income recipients) and (2) data on the joint income distribution of parents 
and each child, with families appearing more than once if having more than 
1 child receiving income. The primary assumptions made in estimating the 
data summarized in Tables G-2 and G-3 were that not more than 2 children 
received income in any family and that each of two children receiving 
income in a family had the same incomes. These assumptions introduce 
specification errors which result in obvious anomalies; to eliminate these 
anomalies, some additional arbitrary assumptions are made. These additional 
assumptions are detailed in a program listing available from the author 


upon request. 
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TABLE G2 


NUMBERS OF FAMILIES WITH GIVEN INCOMES OF PARENTS AND 
OF CHILDREN IN 1964 (1 PARENT RECEIVING INCOME) 


Income Number of come dren 
ae es Less Than $1,000- — $2,000-  $5,000- Ss $4,000- += $5,000- ~—s- $7,000- ~—_ $10,000 
Parents Income __ $1,000 _ 1.229 —2:999 2.299 54999 £999 Bee snd Over Total 
Less than $1,000 i 8,221 5,677 3,919 1,860 4.98 1G Aa Hi 6 20 5365 
2 2,021 1,020 836 672 567 521 199 33 5,869 
$1,000 - 1,999 au 492k 4 054 Hf 1,213 318 93 2 al 13,382 
2 1,2h1 (es 579 503 385 357 113 22 3,931 
2,000 - 2,999 1 6,447 5,792 4 uah 152 483 128 2 i 19 ,039 
2 1,660 1,010 781 820 591 637 203 30 5,732 
3,000 - 3,999 A 7,940 6,500 5,307 2,401 605 149 1 _ 22,903 
2 1,554 1,107 1,025 822 769 793 239 35 6,342 
4,000 - 4,999 ih 8,739 7,567 6,395 3,028 Q1L 187 2 ah 26 ,830 
2 1,829 £5015 842 969 800 865 253 39 6,610 
5,000 - 5,999 iL 7,708 6,168 Aelia 2,505 886 273 3 2 22,686 
2 1,210 877 700 688 Shy 678 189 25 4,911 
6,000 - 6,999 il 5,086 4,028 3, 22h 1,579 604 193 at 1 14,716 
B 776 496 252 hO7 272 325 125 26 2,699 
7,000 - 7,999 1 6,490 5,066 3,451 1,825 625 276 19 a 17,753 
2 735 507 378 288 257 31 114 Li 2,607 
10,000 - 14,999 i 2,456 2,049 961 5he 161 55 4 — 6,228 
2 287 158 130 69 75 50 19 g T9T 
15,000 - 24,999 1 1,009 761 331 168 37 18 5 5 2,334 
2 90 67 ho 37 15 25 iat 9 296 
25,000 - 49,999 1 277 187 64 43 10 4 6 rf 595 
2 15 liye 25 7 10 10 5 8 97 
50,000 and over 1 33 28 13 8 2 3 2 2 91 
2 1 2 5) 1 2: 1 nd ee 12 
TOTALS + Bo BT BOLT GH SSS Shak 166088 
: A149 AOS 28S Ly 22,903 
TOTAL FAMILIES Pte = eet aT 206 825 


Note: In the case of 2 children receiving income in a family, the sum of the children's incomes determines the income class of the 
children, 


Source: Output of DNR special matching run, modified to obtain estimates of the number of families in each pair of income classes 
with 1 child income-recipient and with 2 child income-recipients. 
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TABLE G-3 


NUMBERS OF FAMILIES WITH GIVEN INCOMES OF PARENTS AND 
OF CHILDREN IN 1964 (2 PARENTS RECEIVING INCOME) 


Income Number of Income Class of Children 

ag wen Less Than $1,000- $2,000- $3,000- = $4,000- = $5,000- = $7,000- + ~— $10,000 
Parents income __ $1,000 __ 1.299 —2:299 4 £999 Zio and _Qver Total 
Less than $1,000 1 ho 319 195 104 3h 2 _ 2 1,148 
2 114 WL 4D 22 20 25 4 3 270 
$1,000 - 1,999 a 48 295 233 98 20 11 1 - 1,106 
2 98 69 29 SSI 20 22 8 2 285 
2,000 - 2,999 2 739 539 405 179 hg 2h _ = 1,935 
2 119 104 92 64 59 50 13 2 503 
3,000 - 3,999 it 1,062 810 637 234 82 25 2 ~ 2,852 
2 205 128 108 106 70 Th 17 3 711 
4,000 - 4,999 il 1,699 3251 1,001 396 12h 31 il, 1 4 48h 
2 2h7 222 56 164 76 115 35 2 917 
5,000 - 5,999 1 2,294 1,658 270 632 162 47 2 - 6,065 
2 397 209 167 154 109 151 3h 3 1,224 
6,000 - 6,999 uw 2,811 1,941 1,499 701 232 54 1 — 7,239 
2 352 228 153 174 108 14) 49 4 1,212 
7,000 = 9,999 1 5,782 3,852 ery als) 1,429 438 139 “= — 14,353 
2 58) U8 314 27 199 235 66 é 2,123 
10,000 - 14,999 i 1,890 1,335 643 413 108 57 3 2 4 kSL 
2 173 141 105 57 ke) WL ah 3 593 
15,000 - 24,999 1 3h3 282 103 74 25 10 6 4 847 
2 4s 28 32 2 6 16 2 4 135 
25,000 - 49,999 1 80 63 36 28 9 at 2 3 232 
2 14 9 5 3 2 6 6 5 50 
50,000 and over a ie 23 10 5 4 mn oo X 59 
D ie, i h = e256 2 et we ae, ee 
TOTALS : arse aN TIS 18 B suat7 
2 2,357 61  lloe 100 70 80 20 46 8,056 
TORAL FAMILIES 20,009 BE. a Pcs a Po >> a FC) a v= 2 22,82] 


Note: Both parents and children are classified by aggregate income of parents and (in the case of 2 children receiving income) by the 
aggregate income received by the 2 children together. 


Source: As in Table G2, 
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APPENDIX H 


REVISED ESTIMATES OF THE PRORATED EFFECT OF 
EACH PROPOSED DIRECT TAX REFORM ON 196} 
TAX REVENUES FROM RESIDENT INDIVIDUALS 
The purpose of this appendix is to provide revised estimates of the 
effect of each major recommended direct tax reform on personal income tax 
revenues and on total direct tax revenues from resident individuals 


classified by income. These estimates update and replace the estimates 


presented in Appendix C to Volume 6 of the Report. 


The proposed reforms are listed in Table H-1l. Two reforms are 
excluded from this analysis because of the difficulty in allocating their 
effects to specific taxpayers. The two excluded reforms are the definition 
of the tax unit on a family basis rather than on an individual basis and 


the allowance of income averaging. 


Because of the different marginal tax rates currently applicable to 
different taxpayers and because of the combined effect of various proposed 
reforms affecting the tax base upon the top marginal tax rate faced by 
each taxpayer under the proposed rate schedule, it is possible to allocate 
a change in tax revenues among the proposed reforms bringing about that 
change only by adopting an arbitrary means of allocation. Some reforms 
would, of course, have effects which were independent of the effects of 
other proposed reforms. The provision of tax credits for working mothers, 
to take one example, would involve no change in the tax base and hence 


would be independent of the other proposals. 


The following procedure has been adopted to allocate a change in 


taxes among the reforms causing the change. For each tax return, the 


ood 


202 


change which would occur in personal income tax before tax credits were 
taken into account was allocated among the proposed reforms in proportion 
to the change in the personal income tax base which would be affected by 
the reform, Tax credits associated with each proposed reform were then 
subtracted from the before-credit tax change allocated to each reform and 
associated changes in other taxes were added to the resultant change. 
Examples of the results of these calculations in single sample groups are 


provided in Appendix C to Volume 6 of the Report. 


Taxpayers are classified into twenty standard income classes based 
on comprehensive base income. The income classification is defined in 
Table 4 above. The proration of the effects of each reform by type of 
tax for all residents is shown in Table H-2. Table H-3 shows the effect 
of each proposed reform on revenues from the personal income tax for 
individuals in each income class. Table H-4 presents the effects of each 


reform on all direct taxes from resident individuals, again by income class. 


A summary of the data obtained for each income class is presented in 
Table H-5 in a form that is consistent with an updated version of the data 
presented in Appendix B to Volume 6 of the Report. The amounts show in 
Tables H-2, H-3 and H-4 can be reconciled to this table by adjusting the 
amounts attributed to taxpayers in the tables in this appendix to reflect 
the credit for corporation taxes allowed to the trustees of Registered 


Retirement Income Plans (reform }-1). 


The data presented in Tables H-2 through H-5 indicate the sources of 
aggregate revenue changes resulting from the proposed reforms. Changes in 
direct taxes for the average taxpayer in each income class are shown in 


Table H-6, which thus provides a more meaningful set of figures with which 


255 


to analyze the incidence on different income groups of the tax changes 


resulting from different reforms. 


All figures shown in Tables H-2 to H-5 are in thousands of dollars; 
figures shown in Table H-6 are in dollars. Some figures do not add to 


totals because of rounding. 


95911—18 
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TABLE H-1 
DEFINITION OF PROPOSED REFORMS BY CATEGORY 


1. Changes in Tax Rates 


Bel Lowering the rate schedule for all taxpayers to the proposed schedule for individuals. 
bape Additional reduction in the rate schedule for families. 

Ib sy Use of a tax credit rather than an exemption to allow for the first child in each family. 
1.4 Use of credits rather than exemptions to allow for additional dependent children. 


2. Taxation of the Family as a Unit 
I ES 


Bx Aggregation of the income of husbands and wives, assuming that income is taxed at the 
rates of the proposed schedule for individuals. a/ 

Cae Effect of taxing the aggregated income of husbands and wives, under the family rate schedule. a/ 

2.3 Aggregation of income of parents and children. a/ 

2.4 


Effect of elimination of taxes on transfers of wealth between members of a family unit. 


Os Changes in the Taxation of Corporate Source Income 


ie Integration of corporation and personal income taxes. b/ 

2 Widening the corporation tax base. 

-> Taxation of capital gains and allowance of capital losses on corporate stock. 
4 Disallowance of shareholder depletion deductions. 

5 Deferment of taxes on cash distributions out of untaxed surplus. 


h, Changes in the Taxation of Other Business and Property Income 


41 Deferment of taxes on the investment income of Registered Retirement Income Plans. 

4.2 Taxation of capital gains and allowance of capital losses of unincorporated businesses. 

4.3 Acceleration of capital cost allowances for unincorporated businesses. 

4.4 Extension of loss carry-over provisions for unincorporated businesses. 

4.5 Extension of reporting controls to bring unreported interest into the tax base. 

4.6 Attribution of life insurance policyholder investment income. 

4.7 Attribution of participating dividends paid by credit unions, co-operatives and mutual life 
insurance companies. 

4,8 Taxation of non-business capital gains and allowance of non-business capital losses. 


5 Changes in the Taxation of Employment Income 


5.1 Liberalization of the definition of deductible employment expenses. 
2-2 Optional standard expense allowance. 

5.5 Attribution of employee benefits. 

5.4 Working mother credit. 

9-5 Deductibility of unemployment insurance. 


6. Other Changes Resulting from Adoption of the Comprehensive Tax Base 


6.1 Inclusion of gifts and bequests. 
6.2 Inclusion of family allowances and other transfer payments. 


7. Changes in Concessionary Allowances 


1 Elimination of the old age exemption. 

2 Changed definition of medical expenses. 

4 Improvements in the control of charitable donations. 

4 Change in the standard deduction. 

5 Provision of additional educational allowances in the form of a tax credit. 

6 Allowance of credits rather than exemptions for dependants other than dependent children. 


Note: a/ The first three proposed reforms in the "taxation of the family as a unit" category have no 
figures listed under them in subsequent tables. They are included here as "reserved" elements 
of the table and are included on that basis in the RVTAB2 subroutine so that they can be 
shown, given subsequent allocation of the effects of the family unit definition. 


b/ Including the effects of the consequent inclusion in the tax base of currently unreported 
dividends. 
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APPENDIX I 


ESTIMATES OF THE INCIDENCE OF THE CHANGE IN SALES TAX 
ON FAMILIES IN DIFFERENT INCOME CLASSES 
The analyses reported in this appendix update the calculations 
presented in Appendix E to Volume 6 of the Report to allow for the increase 
in current sales tax rates announced in the December 1966 Supplementary 
Budget. In addition, those calculations are extended to provide estimates 
of the incidence of sales tax changes on & more detailed breakdown of 


families with incomes over $10,000. 


The estimates of sales tax changes for income classes over $10 ,000 
are obtained by prorating the total revenue raised in 1961 from families 
with incomes over $10,000 as projected in Appendix E to Volume 6 over 
detailed income classes within the "over $10,000" range in accordance with 
the estimated 1964 distribution of taxable spending by taxpayers in each 
income class. The estimates of total taxable spending in each class are 
based on estimates of disposable income calculated from data presented in 
Table H-5 and on assumptions regarding the fraction of disposable income 
allocated to taxable spending by taxpayers in each class. These assumptions 
are arbitrary, though believed to reflect the relative pattern of spending 
in the different classes. The relative distributions of families and 
family incomes over income classes above are assumed to be the same as 


those of taxpayers and taxpayers' incomes. 


As in Appendix E to Volume 6, estimates are provided of the total 
combined change in direct taxes and sales tax. As in that appendix, these 
estimates are based on an assumption that average direct taxes paid by 
families in each income class are equal to average direct taxes paid by 


individual taxpayers falling in each class. 
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STABLE I-1 


REVISED ESTIMATES OF THE AVERAGE CHANGE IN SALES 
TAXES FOR UNATTACHED INDIVIDUALS AND FAMILIES 
IN DIFFERENT INCOME CLASSES 


Average Sales Average 
Taxes Paid Change in 
Income Current Proposed Sales Taxes 
cone ce —— 5 sor aa 
Less than $2,000 87 78 -9 
$ 2,000 - 2,999 157 131 - 26 
3,000 - 3,999 231 187 -hy 
4,000 - 4,999 275 218 ope 
5,000 - 6,999 379 303 -76 
7,000 - 9,999 549 435 -114 
10,000 and over 788 856 68 
ALL CLASSES 293 248 -45 
Note: Income is defined as taxable income under the comprehensive tax 
base. 
Source: Table E-2 of Appendix E to Volume 6 of the Report. Current 


average sales taxes paid have been mltiplied by 12/11 to reflect 
the increase in sales tax rate announced in the December 1966 
Supplementary Budget. 


12,000 - 


15,000 


20 ,000 


25,000 


Income 


14,999 
19,999 
2h ,999 
49,999 


50,000 and over 


TOTAL 


ESTIMATES OF THE DISTRIBUTION OF SALES TAX REVENUES 
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TABLE I-2. 


FROM TAX UNITS WITH INCOMES OVER $10,000 


Total 
Disposable 
Income 
millions 
of dollars) 


1. Under the Current Tax System 


$10,000 - $11,999 


768.1 
932.1 
909.0 
507.8 
1,231.4 


1,420.2 


5,768.6 


2. Under the Proposed Tax System 
$10,000 - $11,999 


12,000 - 


15,000 


20,000 


25,000 


14,999 
19,999 
2h ,999 
49 ,999 


50,000 and over 


TOTAL 


73.0 
933.2 
906 . 7 
506.0 

1,205.5 

1,249.9 

5,574.5 


Assumed 


Fraction 
Spent on 
Taxable 
Goods and 


Services 


Estimated Taxable Spending 


Amount 
millions 
of dollars) 


D27-T 
605.9 
545.4 
253-9 
Spt eee 
568.1 


502.5 
606.6 
544.0 
303.6 
663 .O 
625.0 


Per Cent 


of Total 


Revenue from 
Sales Tax 
millions 
of dollars) 


36.5 


41.0 


36.9 


Notes: Total disposable income is estimated as comprehensive income less personal deductions allowed under 
the Commission's proposals and total direct taxes paid by or attributable to tax units in each class; 


data are obtained from Table H-5 in Appendix H to this study. 


Total sales tax revenue from tax units 


with incomes over $10,000 is obtained from Table E-l of Appendix E to Volume 6 of the Report; the 
current tax revenue shown in that table has been multiplied by 12/11 to adjust for the increase in 
tax rate announced in the December 1966 Supplementary Budget. 


Tncome 


$10,000 - 
12,000 - 
15,000 - 
20,000 - 


25,000 - 


11,999 
14,999 
19,999 
2h, ,999 
49,999 


50,000 and over 


TOTAL 


ESTIMATES OF THE AVERAGE CHANGE IN SALES 
TAXES FOR UNATTACHED INDIVIDUALS AND 
FAMILIES IN DIFFERENT INCOME CLASSES 


Number of 


Unattached 
Individuals 
and Families 
thousands 


66.0 
66.8 
52.2 
Zyl 
38.9 


16.0 


263.0 


o7Th 


TABLE I-3 


Average Sales 


Current 


ppp) 
614 
7107 
TH5 
29 
2,400 


Taxes Paid 


SECR SS 


529 
626 
72h 
918 
1,180 


2,713 


Average 
Change 
In Sales 
Taxes 
- oh 
8 
iy 
173 
2el 


313 


Note; Total numbers of unattached individuals and families are from 
Table #2 in Appendix E to Volume 6 of the Report; the relative 
distribution of unattached individuals and families over the income 
classes is assumed to be the same as that of individuals filing 
1964 personal income tax returns over these classes, as shown in 


Table H-5 above, 


Table I-2. 


Averages are computed from totals shown in 


aid bo) 


TABLE I-4 


ESTIMATED CHANGE IN AVERAGE SALES TAXES AND DIRECT 
TAXES COMBINED FOR FAMILIES IN EACH INCOME CLASS 


Income 
Less than $ 2,000 
$ 2,000 - 2,999 
3,000 - Bs999 
4,000 - 4, 999 
5,000 - 2999 
6,000 - 6,999 
7,000 - 7,999 
8,000 - 9,999 
10,000 - 11,999 
12,000 - 14,999 
15,000 - 19,999 
20,000 - 24,999 
25,000 - 49,999 
50,000 and over 
ALL CLASSES 
Note: 


Average Changes in Taxes 
Sales 
Taxes 


a 
-26 
-hy 
el 


-54 -76 


-89 -114 


Average direct taxes of families in each income class have been 
assumed to be the same as the average taxes attributable to all 


taxpayers in the income class. 


Direct taxes of taxpayers with 


incomes between $6,000 and $7,999 have been allocated on the 
assumption that 45 per cent of these taxpayers have incomes 
between $7,000 and $7,999. 


Source: Tables 14, I-1, I-3. 
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APPENDIX J 


UPDATED COMPARISONS OF TAX LIABILITIES FOR WAGE EARNERS 
UNDER THE CURRENT AND PROPOSED TAX SYSTEMS 

The tables in this appendix give a detailed comparison of the tax 
liabilities of different families earning income from employment under the 
current tax system and the proposed tax system in four cases reflecting 
different family situations. The tables are an updated form of the examples 
provided in Appendix I to Volume 3 of the Report, revised to allow for the 
increases in old age security tax announced in the December 1966 Supplemen- 


tary Budget. 


These cases are as follows: 


A An unattached individual or a family unit with one income recipient. 


Ze A family unit with 20 per cent of its income earned by a working 


wife and the balance by the husband. 


5's A family unit with 35 per cent of its income earned by a working 


wife and the balance by the husband. 


h, A family unit in which the husband and wife each earn 50 per cent 


of the income. 


In all cases, it is assumed that all of the income is from employment and 
that the children are qualified for family allowances, each at the rate of 


$72 a year. 


24, 
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For each case, three tables of computer-generated output are pre- 
sented. The first table lists the total federal income taxes, before the 
deduction of the provincial tax abatements, that are payable by unattached 
individuals and by family units composed of married couples with different 
numbers of children, given different levels of employment income. The second 
table shows the effective average tax rate for taxpayers in each situation, 
The effective average tax rate is the ratio of taxes paid to income. The 
third table presents estimates of the effective marginal rates applicable to 
taxpayers in each situation. These estimates are based on the assumption 
that, currently, tax is imposed on the same proportion of the additional 
income as the taxpayer's entire income. The marginal rates are computed as 


the effective rate of tax on an additional $500 of income. 


The four cases analyzed in this fashion show the effect of different 
proportions of income being earned by husbands and wives. In the last three 
cases, it is assumed that families with dependent children are eligible for 
the $80 working mother credit but not for the additional $120 credit for 
families with children younger than seven, although it is unlikely that 


families with many children would not be eligible for the latter credit. 


In all these tables, in calculating tax liabilities under the pro- 
posed system, income is determined under the comprehensive definition, and 
is assumed, for illustrative purposes, to be employment income only, apart 
from family allowances, which are also taken into account. It is assumed 
that the $50 standard deduction and the 43 per cent optional standard 
employment expense deduction are claimed and that no additional allowable 
deductions are itemized. Alternatively, it may be assumed that any 


additional deductions beyond these amounts are offset by the attribution 


279 


of fringe benefits and other components of the comprehensive tax base 
which at present are untaxed. Current tax includes both income tax and 
old age security tax. Parents of dependent children are assumed to be 


receiving family allowances of $6 per month per child. 


The way in which the taxes are computed under the first table for 
each case can best be described by reference to several examples. 
Example 1 (a single individual earning $3,500) shows the method of calcula- 
tion of the two tax figures which are presented in Table J-4, Column 1, in 
the row shown for gross employment income of $3,500. Example 2 (a family 
with a wife and three children with one income recipient earning $6 ,500) 
gives the calculations underlying the tax figures shown in Table J-, 
Column 5, in the row for gross employment income of $6,500. Example 3 
(a family with two school-age children in which both spouses work, the 
husband earning $5,200 and the wife $2,800) gives the calculations under- 
lying the tax figures shown in Table J-10, Column 3, in the row for gross 


employment income of $8,000. 


95911—20 
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TABLE J-l 


CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS 
EXAMPLE 1: SINGLE INDIVIDUAL 
EARNING $3,500 


Tax Calculation 
Current Tax Under the 


Calculation Proposed System 
$ $ 


ite Income Received 
Income earned from employment 3,500 3,500 
Family allowances NA. O 
3 5500 3 5500 
am Deductions 
Employment expense deduction N.A. 105 
Personal exemption 1,000 N.A. 
Dependant allowances 0 NA. 
Standard deduction 100 50 
153,00 155 
oe Net Taxable Income 2,400 5345 
a Gross Tax 
Income tax (1966 rates for current 
tax calculation) 298 374 
Old age security tax 96 NA. 
394 374 
5. Tax Credits 
Tax credit for first child NAo 6) 
Tax credit for additional children NA. 6) 
Tax credit for working mothers NA. O 
Additional tax credit for working 
mothers with pre-school children NA. O 
O 0) 
Gs Net Tax Paid 394 374 


Note: "NA." means that the item is not applicable. 
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TABLE J-2 


CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS 
EXAMPLE 2: FAMILY WITH WIFE AND THREE CHILDREN 
HUSBAND EARNING $6,500 


Tax Calculation 
Current Tax Under the 


Calculation Proposed System 


1 Income Received 
Income earned from employment 6,500 6,500 
Family allowances ($6 per month per child) NA 216 
6,500 6, 716 
on Deductions 
Employment expense deduction NA. 195 
Personal exemptions 2,000 NA. 
Dependant allowances 900 NA. 
Standard deduction 100 50 
3,000 2h5 
ae Net Taxable Income 3,500 6,471 
h, Gross Tax 
Income tax (1966 rates for current 
tax calculation) 495 THL 
Old age security tax 140 NA. 
635 TAL 
oY Tax Credits 
Tax credit for first child N.A. 100 
Tax credit for additional children NA. 120 
Tax credit for working mothers NAo 0 
Additional tax credit for working 
mothers with pre-school children NA. @) 
fe) 220 
6. Net Tax Paid 635 521 
= 


Note: "N.A." means that the item is not applicable. 


95911—213 
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TABLE J-3 


CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS 
EXAMPLE 3: FAMILY WITH TWO SCHOOL-AGE CHILDREN, 
BOTH HUSBAND AND WIFE WORKING, HUSBAND EARNING 
$5,200, WIFE EARNING $2,800 


Current Tax Calculation Tax Calculation 


Husband 's Wife's Under the 
Return Return Proposed System 
i» Income Received $ $ 
Income earned from employment 5,200 2 ,800 8,000 
Family allowances ($6 per month 
per child) NA. NA» hh 
5,200 2,800 8,144 
ae Deductions 
Employment expense deduction NA. NA. eho 
Personal exemptions 1,000 1,000 N.Ae 
Dependant allowances 600 0 NA. 
Standard deduction 100 100 50 
1,700 1,100 290 
oe Net Taxable Income 3,500 1,700 7,854 
————od fn —— —— 
is, Gross Tax 


Income tax (1966 rates for current 


tax calculation) 495 188 1,018 
Old age security tax 140 68 NA. 
635 256 1,018 
$891. 
je Tax Credits 

Tax credit for first child NeAe 100 
Tax credit for additional children NA. 60 
fax credit for working mothers NAc 80 

Additional tax credit for working 
mothers with pre-school children NA. O 
O 2h0 
6. Net Tax Paid $891 778 


Note: "N.A." means that the item is not applicable. 
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APPENDIX K 


UPDATED COMPARISONS OF TAX LIABILITIES ON 
CORPORATE SOURCE INCOME UNDER THE 
CURRENT AND PROPOSED TAX SYSTEMS 


Revised comparisons of the tax payable by, or on behalf of, resident 
individuals and families with only Canadian corporate source income from 
shares (plus family allowances where applicable) under the current and 
proposed systems are shown in the tables provided in this appendix. The 
examples update the comparisons shown in Appendix M to Volume 4 of the 
Report to show the effect of the tax changes proposed in the December 1966 
Supplementary Budget. In addition, comparisons are made based on the 
distribution of corporate source income components assumed in making 


revenue estimates. 


Four comparisons are made. These comparisons are based on the 


following sources of income: 


Case 1: A typical public company distributing one half of its after-tax 


income as dividends. 


Case 2: A typical private company distributing one half of its after-tax 


income as dividends. 


Case 3: A typical private company distributing one half of its after-tax 


income as dividends and the balance under section 105. 


Case 4; Corporate source income distributed in accordance with the average 
relationship among the components of comprehensive-base corporate 


source income attributable to Canadian residents in 1964. 
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Under the comprehensive definition of income a resident tax unit's 


income from holding equities would consist of four components: 


ie dividends; 

os undistributed income of the corporation; 
oe realized goodwill gains; and 

h, corporation taxes paid. 


In each of the cases referred to in the tables which follow, assumptions 
are made about the relative importance of each of these components. These 
assumptions are specified in Table K-l for the first three cases and in 


Table K-5 for the last case. 


Goodwill gains under the Commission's proposals would be taxable 
only upon realization, but as it is not practical to estimate when Hey 
would be realized tax liabilities have been computed as though such gains 
were realized annually. For public companies goodwill gains are assumed 
to be equal to cash dividends, with cash dividends to be one half of 
profits after taxes. v/ Primarily because of the limited marketability 
of the shares of private companies, their goodwill gains have been assumed 


to be one half of those of public companies. 2/ 


Examples of the calculations made for a tax unit with given income 
and family characteristics for each of the first three cases are presented 
in Tables K-2 to K-4 inclusive. The example in Table K-2 corresponds to 
the result given in Table K-7, column 1, in the row for a gross corporate 
source income of $10,000. The example given in Table K-43 corresponds to 


the result given in Table K-10, column 4, in the row for a gross corporate 


Jel 


TABLE K-1 


ASSUMED PRESENT COMPOSITION OF A SHAREHOLDER'S CORPORATE SOURCE 
INCOME DERIVED FROM TYPICAL PUBLIC AND PRIVATE COMPANIES 


Expressed as Expressed as 
Fractions of Fractions of 
After -Tax Comprehensive 
Corporate Corporate 
Income Source Income 
Case 1: Typical Public Company 
Dividends =D -20192 
Undistributed corporate income 5) -20191 
Goodwill gains on corporate stock held by the taxpayer Asi .20192 
Corporation tax paid = 39425 
TOTAL 1.00000 
SS 
Cases 2 
and 3: Typical Private Company 
Dividends 55) 27957 
Undistributed corporate income (section 105 
distributions for Case 3) 5 -2795T 
Goodwill gains on corporate stock held by the taxpayer Has) .13978 
Corporation tax paid _ .30108 
TOTAL 1.00000 


Note: 


The relationship between before-tax and after-tax corporate income shown in these figures is based on an 
assumed current average corporation tax rate on before-tax corporate income of 49.4 per cent for a typical 
public company and 35 per cent for a typical private company. The exact relationship between the ratio of 
a particular income component to total comprehensive corporate source income and the ratio of the component 
to after-tax corporate income may be determined under the formula set out below. Let r be the ratio of 
after-tax corporate income to total comprehensive corporate source income; let d, g and s be the ratios of 
dividends, goodwill gains and section 105 capitalizations respectively to after-tax corporate income; let f 
be the fraction of dividends and section 105 capitalizations carrying eredit for corporation tax under the 
integration proposals; and let c be the average corporation tax rate. Then 


Y= =e 
aoe Wak Dt fe (LE ei Std 


The ratio to comprehensive income of any component expressed as a fraction of after-tax corporate income 

can be obtained by multiplying that fraction by r. The fraction of dividends and section 105 capitalizations 
carrying attribution of corporate income under the integration proposals is assumed to be unity in all three 
cases. 
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CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS FOR AN UNATTAC 
OF COMPREHENSIVE TAX BASE INCOME DERIVED EXCLUSIVELY FROM SHARES IN A 


Tax Base 


Income from corporate sources: 


Dividends 


Other corporate income, before corporation tax 
Goodwill gains on corporate stock held by taxpayer 


TOTAL CORPORATE SOURCE BASE 


Family allowances 


TOTAL INCOME 


Deductions: 
Family exemptions 
Standard deduction 
TOTAL DEDUCTIONS 
NET TAX BASE 
Taxes 
Gross tax (before credits) 
Non-refundable tax credits: 
Credits for dependants 


Dividend tax credit 


Tax after credits 


Refundable credit on corporation taxes 


Personal income tax 
Old age security tax 
TOTAL TAX 


TOTAL TAXES 


Note: Numbers enclosed in parentheses are negative, 


Dee 


TABLE K=2 


CASE 1 EXAMPLE: 


Tax Base and 


Taxes 


Under the Current System 


At 
Corporate 
Level 
$ 
2,019.15 
5,961.70 


7,980.85 


7,980.85 


7,980.85 


3,942.54 


22942. 5h 


At 
Personal 
Level 


2,019.15 
N.A. 
N.A. 

2,019.15 
N.A. 


2,019.15 


1,000.00 


100.00 


1,100.00 


919.15 


LOM TEL 


3979-51 


"N.A." means non-applicable. 


corporate source income is that specified in Table K-l. 


HED INDIVIDUAL WITH $10,000 
TYPICAL PUBLIC COMPANY 


Tax Base and Taxes 


Under the Proposed System 


At At 
Corporate Personal 
Level Level 
2,019.15 2,019.15 
5,961.70 5,961.70 
= 2,019.15 
7,980.85 10,000.00 
7,980.85 10,000.00 
— N.A. 
—s 0.00 
= -00 
7,980.85 9,950.00 
3,990.43 1,942.00 
a AN Aes 
_ 1,942 .00 
= 3,990.42 
> (2,048.42) 
bes N.A. 
3990.43 (2,048 43) 
1,942.00 


The relationship among the components of 


Dao 


TABLE K-2 


NE 


CASE 2 EXAMPLE: 


CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS FOR A 
MARRIED COUPLE WITH TWO CHILDREN WITH A COMPREHENSIVE TAX BASE 
INCOME OF $8,000 DERIVED EXCLUSIVELY FROM SHARES IN A TYPICAL 
PRIVATE COMPANY NOT MAKING USE OF SECTION 105 


Tax Base and Taxes Tax Base and Taxes 
Under the Current System Under the Proposed System 
At At At At 
Corporate Personal Corporate Personal 
Tax Base Level Level Level Level 
Income from corporate sources: ; 
Dividends 2,236.56 2 236.56 2,236.56 2,236.56 
Other corporate income, before corporation tax 4,645.16 N.A. 4,645.16 4,645.16 
Goodwill gains on corporate stock held by taxpayer _ N.A. — ia oy ets) 
TOTAL CORPORATE SOURCE BASE 6,881.72 2,236.56 6,881.72 8,000.00 
Family allowances _ NA. _— 144.00 
TOTAL INCOME 6,881.72 PReAOE oO 6,881.72 8,144.00 
Deductions: 
Family exemptions _ 2,600.00 _ N.A. 
Standard deduction — 100.00 a 50.00 
TOTAL DEDUCTIONS _ 2,700.00 _ 50.00 
NET TAX BASE 6,881.72 —_ 6,881.72 8,094 .00 
Taxes 
Gross tax (before credits) 2,408 .60 _ 3,440.86 1,066.74 
Non-refundable tax credits: 
Credits for dependants = NA. _ 160.00 
Dividend tax credit _ WUT. 31 _ _ NA. 
_ 447.31 _ 160.00 
Tax after credits _ —_ —- 906. 74 
Refundable credit on corporation taxes — cc Med go _ 3 440.86 
Personal income tax — = — (2,534.12) 
Old age security tax = Reisen ow, Se A Pe 
TOTAL TAX 2,408 .60 _ 3,440.86 (2,534.12) 
TOTAL TAXES 2,408.60 906. 74 


Note: As in Table K-2. 
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TABLE K-4 


CASE 3 EXAMPLE: 


CALCULATION OF TAXES UNDER THE CURRENT AND PROPOSED SYSTEMS FOR A MARRIED COUPLE WITH THREE 
CHILDREN WITH A COMPREHENSIVE TAX BASE INCOME OF $100 ,»000 DERIVED EXCLUSIVELY FROM 
SHARES IN A TYPICAL PRIVATE COMPANY CAPITALIZING EARNED SURPLUS UNDER SECTION 105 


Tax Base and Taxes 
Under the Current System 


Tax Base and Taxes 
Under the Proposed System 


At At At At 
Corporate Personal Corporate Personal 
Tax Base Level Level Level Level 
Income from corporate sources: 
Dividends 27,956.99 27,956.99 27,956.99 27,956.99 
Section 105 distributions 27,956.99 N.A. 27,956.99 27,956.99 
Other corporate income, before corporation tax SOmLOeo NA. SO, OTs oS BOR NON (esE) 
Goodwill gains on stock held by taxpayer _ NAw — it 4 
TOTAL CORPORATE SOURCE BASE 86,021.51 27,956.99 86,021.51 100 ,000 .00 
Family allowances = NA. _ 216.00 
TOTAL INCOME 86,021.51 27,956.99 86,021.51 100,216.00 
Deductions: 
Family exemptions — 2,900.00 = NA. 
Standard deduction _ 100.00 = 00 
TOTAL DEDUCTIONS =_— 3,000.00 = 50.00 
NET TAX BASE 86,021.51 2h 956.99 86,021 .51 100,166.00 
Taxes 
Gross tax (before credits) 30,107.53 8,530.65 43,010.76 38,760.00 
Additional tax on section 105 distributions 4 193.55 —_ N.A. ~ 
Non-refundable tax credits: 
Credits for dependants _ N.A. _ 220.00 
Dividend tax credit _ 5,591.40 _ N.A. 
52591 .40 220.00 
Tax after credits — 2,939.25 7 38,540.00 
Refundable credit for corporation taxes _ NA. _ 43,010.76 
Personal income tax _ 2,939.25 (4,470.76) 
Old age security tax =_ 240.00 _ NA. 
TOTAL TAX 34,301.08 3,179.25 43,010.76 (4,470.76) 
TOTAL TAXES 37,480.33 38.540 00 


Note: As in Table K-2. 


ir 
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TABLE K-5 


ESTIMATED AVERAGE BREAKDOWN OF CORPORATE 
SOURCE INCOME IN 1964 


Fraction of 


Fraction of Comprehensive 
After-Tax Corporate 
Corporate Source 
Taxpayers With Income Under $25,000 Income Income 
Dividends carrying credit for 
corporate tax . 38297 -18085 
Dividends not carrying credit .02016 .00952 
Section 105 distributions _ _ 
Undistributed taxed corporate 
income -61703 -29138 
Capital gains on corporate stock 
held by the investor -40313 .19037 
Corporate tax paid _ 32788 
TOTAL 1.00000 
a 
Taxpayers With Income Over $25,000 
Dividends carrying credit for 
corporate tax 34697 .16699 
Dividends not carrying credit .01826 -00879 
Section 105 distributions .O9401 04524 
Undistributed taxed corporate income .55902 .26904 
Capital gains on corporate stock held 
by the investor 36523 -17578 
Corporate tax paid _ 25516 
1.00000 
SS a reine one 


Note: The relationship between before-tax and after-tax corporate income is based on an 
assumed average corporate tax rate of 40.979% on before-tax corporate income 
attributable to Canadian residents. Of total dividends 5 per cent are assumed 
not to carry credit for corporate tax. For other notes, see Table K-1. 


For purposes of dividing taxpayers into these two groups, "income" is 
defined as currently taxable income. 
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TABLE K-6 


COMPARISON OF CURRENT AND PROPOSED TAXES FOR A MARRIED TAXPAYER 
WITH 1 DEPENDENT CHILD EARNING $200,000 EXCLUSIVELY 
FROM CORPORATE INCOME DISTRIBUTED IN ACCORDANCE 
WITH THE ESTIMATED 1964 AVERAGE 


Tax Base and Tax Under 
Current Tax Law 


Tax Base and Tax Under 
Our Proposals 


At Personal At Corporate At Personal At Corporate 
Level Level Level Level 
Income From Corporate Sources 
Dividends 35,155.74 35,155.74 35,155.74 35,155.74 
Section 105 distributions N.A. 9,049.07 9,049.07 9,049.07 
Other corporate income, 
before corporate tax NA. 120,639.45 120 639.45 120 ,639.45 
Capital gains on stock 
held by taxpayer N.A. _ eed. Te = 
Total corporate source income 35,155.74 164,844.26 200,000.00 164 ,844 .26 
Family allowances NA. = (2.00 —_ 
TOTAL INCOME 35,155.74 164 , 844.26 200 ,072 .00 164 ,844 .26 
Deductions 
Family exemptions 2,300.00 —_ NA. _ 
Standard deduction 100.00 — 0.00 — 
Total deductions 2,400.00 50.00 
ee pep (one 164 Bibb 26 200,000 .00 16% ,O44.26 
GROSS TAX (before credits) 12,427.87 66 ,830. 54 88 ,688 .00 82,422.13 
Additional tax on section 105 
distributions — Li noley (ike: _ N.A. 
Non-Refundable Tax Credits 
Credit for dependants N.A. ~ee 100.00 - 
Dividend tax credit 031.1 —— NA. _ 
7,031.15 100.00 
Tax after credits 5,396.72 _ 88 ,588 .00 _ 
Refundable credit for corporate tax NA. _ 82,422.13 — 
PERSONAL INCOME TAX ce) 6,165.87 
OLD AGE SECURITY TAX 240.00 N.A. 
TOTAL TAX 5,636.72 68,187.90 6,165.87 82,422.13 
TOTAL DIRECT TAXES $73 ,825 $88 , 588 


Note: As in Table K-2. 
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source income of $8,000. The example given in Table K-4 corresponds to 

the result given in Table K-13, colum 5, in the row for a gross corporate 
source income of $100,000. Because of the income levels involved in these 
three examples, only the last comparison is affected by the old age security 


tax increase announced in the December 1966 Budget. 


An additional set of comparisons is based on estimates of the aver- 
age relationship among the different components of comprehensive corporate 
source income for Canadian residents in 1964. These estimates, presented 
in Table K-5, underlie estimates of the effects on tax revenues of the 
Commission's recommendations regarding the taxation of corporate source 
income (apart from recommendations regarding the definition of the corpo- 
rate base, which is assumed here to be unchanged). The basis for these 


estimates is discussed in Appendix A to Volume 6 of the Report. 


An examole of the calculations underlying the tax comparisons based 
on the estimate of average 1964 relationships presented in Table K-5 is 
shown in Table K-6, which provides the calculations underlying the compari- 
son for a married taxpayer with one child earning $200,000 exclusively from 
corporate income distributed as indicated in Table K-5. The resultant 
comparisons are shown in Teble K-16 of the computer-generated tables in 


column 5 in the row for a gross corporate source income of $200,000. 


For each of the four cases, three computer tables are provided. 
The first table shows the difference in taxes under the current and pro- 
posed systems. The second shows the effective average rates under the 
current and proposed systems. The effective average rate is simply the 
ratio of taxes paid to income. The third provides estimates of the 


effective marginal rates under the current and proposed systems. The 
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effective marginal rates are computed as the rate of tax on an additional 
$500 of income assuming that the rate of tax paid by the corporation on 


this income is 50 per cent. 


All of the comparisons given in this appendix are based on the 
assumption that the full corporation tax is borne by the shareholders and 
that no part of any reduction in the tax on corporate source income would 
be shifted in the form of lower prices for goods and services sold or 
higher prices for goods and services purchased. In addition, the 
comparisons assume that the shareholder is a resident with only Canadian 


corporate source income from shares. 


REFERENCES 


iy | Evidence substantiating this assumption is presented in J. Bossons, 
Rates of Return on Canadian Common Stocks: Dividends, Retentions, 
and Goodwill Gains, a study published by the Commission. 


2/ In Cases 1 and 2, it is assumed that one half of the after-tax 
corporate income is undistributed. This undistributed income would 
be subject to further tax under the current tax law if subsequently 
distributed. However, this tax may be indefinitely deferred, and 
shareholders may avoid it by the sale of their shares. In Case 3, 
it is assumed that a full distribution of income has been made 
through section 105 capitalizations under current law so that no 
further taxes are payable under any circumstances. Because 
section 105 capitalizations are only attractive to shareholders 
with marginal rates in excess of 35 per cent, that is, with taxable 
incomes in excess of $12,000 under the current system (corresponding 
to corporate source income of over $50,000 under the comprehensive 
tax base), the results of Case 3% should be interpreted with caution 
for individuals with lesser incomes. 
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APPENDIX L 


DISTRIBUTION OF THE 1964 PERSONAL INCOME TAX BASE AND DIRECT 
TAXES AMONG RESIDENT INDIVIDUALS IN DIFFERENT INCOME 


CLASSES UNDER THE CURRENT AND PROPOSED TAX SYSTEMS 


The purpose of this appendix is to provide estimates of each 
component of the personal income tax base and of direct taxes attributable 
to residents under the current and proposed tax systems for individuals 
classified by income. The income classification is defined in Table 4 
above; the basis for the classification is each individual's comprehensive- 


basis income as estimated in the tax return analyzer. 


Estimates of the total personal income tax base associated with 
different income components and of direct taxes attributable to individuals 
under the present tax system are presented in Table I-1 for individuals 
classified by income, As in Appendix H to this study, corporation income 
taxes and gift and estate taxes are attributed to shareholders and to 
recipients of gifts and bequests; the basis for this attribution is 
described in Appendix A to Volume 6 of the Report. Elements of the personal 
income tax base are as reported on personal income tax returns filed; the 


source of this data is described in Appendices B and F to this study. 


Estimates of the components of the proposed personal income tax base 
and of personal and corporation income taxes attributable to individuals in 
each income class are presented in Table Ir2, The total personal income tax 
base and total direct taxes attributed to each income class under both tax 
systems can be reconciled to the corresponding figures presented in Table H-5 


in Appendix H to this study. 


All figures shown in these tables are in thousands of dollars. Some 


figures do not add to totals because of rounding. 
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APPENDIX M 


EXAMPLES OF CALCULATIONS AND 
LISTING OF SAMPLE INPUT 
The purpose of this appendix is twofold: to provide some examples 
of the calculations defined by the programs presented in this study, and 
to provide a listing of the input required to generate this example 
output. This appendix consequently not only provides detailed examples, 
but also provides test input and output for use in debugging the imp lementa- 


tion of the GITAN computer programs on different machines. 


The examples are specified as the average individual in each of 
seven of the 19,370 groups of individual tax returns defined in Appendix B 
to this study. The examples used are those presented in Appendix B to 
Volume 6 of the Report. The input data read in are listed in the latter 
portion of Table M-6. These data correspond to the figures shown in 
Table B-2 of Appendix B to Volume 6 of the Report; averages for each 


individual are presented in Table M-1l. 


The sample input listed in Table M-6 includes all input necessary 
to produce the output generated by the DBUGL, BASKLS, and RVTABe2 sub- 
routines. The variables calculated in the data analysis loop of the tax 
return analyzer are listed for each record analyzed by DBUGL; the values 
of these variables for each example are presented in Table M-2. The 
output of the BASKLS and RVTAB2 subroutines is summarized in Tables M-3, 
M-4, and M-5. The reforms shown in Table M-5 are defined in Table D-5 


in this study. 
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TABLE M-1 


INPUT VARIABLES FOR THE AVERAGE INDIVIDUAL 
IN EACH EXAMPLE GROUP 


Example Group 
a 2 b) 4 5 6 T 


Classification data 


ae 
ono 


KLAS(1) 1 1 al ah 1 6 T 
KLAS(2) 16 27 3h 3h 37 Thal iT 
KLAS (3) a if 1 1 an 1 1 
KLAS (4) 5 5 8 18 5 ah 25 
KLaAS(5) 4 ul 13 13 T it au 
Average value of accumlated data 

SUM (1) 1 De} IO 1.0 1.0 1.0 ae 
SoM(2) 2 2.0 2.0 alate 1.9 1.0 i 
SUM( 5) - - ~ - = - ~ 
sumM(4) 1 ~ 5.5 5.0 2.0 _ _ 
SuUM(5) ae a = = = = 

SUM(6) 2,299.9 1,991.9 3,647.5 3,166.7 2,544. 4 1,000.0 1,49 
StM(7) 0.6 0.6 Onn 0. 0.4 0.9 als 
sum(8) 0.2 _ _ —_ 0.1 _ _ 
SUM(9) 81.9 4.8 HONS — 58.3 8.4 5. 
SUM(10) 43.9 228 3 _ 3.9 6.2 3, 
suM(11) 0.3 0.2 —_ —_ _ = = 
SUM(12) HAG 6.1 11.0 _ — 0.3 0. 
SUM(13) (yal — _ — —_ _ — 
sum(14) O.4 0.4 0.9 0.8 0.6 Onl 0. 
SUM(15) 76.1 163.5 786.9 750.0 576.7 21.0 TOs 
SUM(16) 5,716.0 11, 318.0 1,460.7 6,235.0 52,034. 4 2,774.9 ho7. 
suM(17) 0.9 -1.4 ala Gusyr( _ 152.8 354.5 _ 
SUM(18) 0.3 37.2 27,765.2 — — Be ae 
SUM(19) 8.6 612.8 1,020.0 _ 363.9 19.1 ap 
$um(20) -1.7 — -149.2 56s 1 — 59.3 The 
suM(21) -9.6 0.6 18.0 2116.7 1,218.9 20.9 a1 
suM(22) 17.8 26.0 962.5 605.0 1 202a6 209.9. _ 
sum(23) Tale i 15.4 20,764.8 _ 986.1 4,260.2 _ 
suM( 24) a —- - - — _- 
suM(25) 5.7 19.4 123.9 15513565 3,607.2 Dat, i 
suM(26) = ~ Bit ~ — - 9. 
sum(27) 5.5 479.4 219.3 OB KON Sf 1,610.0 23.4 374. 
sum(28) — 3.0 3.4 108.3 8.3 _ — 
SUM(29) 0.8 13.3 47.9 2,401.7 Wer telalia gi 0.1 _ 
SUM( 30) Ong 3.8 Til 2,402.3 619.1 0.7 0. 
SUM( 31) 0.5 39.7 0.3 16.0 45 —_ — 
SUM( 32) —_ - _ ~ _ ~ 807. 
SuM( 33) Fi = = 5 =] = = 
SUM( 344) ieee 0.7 2.8 ~ 33.9 4.7 3h. 
SUM( 35) = st = = = = — 
SUM( 36) 134.0 51.8 146.2 93.3 673.9 31.8 - 
SUM( 37) 0.5 10.1 1,105.9 250.0 86.7 — — 
SUM( 38) oy) _ — _ = 17.0 _ 
SUM 39) 19.5 67.2 97.4 h 803.3 3,423.3 14.8 _ 
SUM( 40) SGT 12,469.8 2,188.0 32,116.7 5,929.4 3,263.2 1,684. 
SUM( 441) 2,647.5 2,640.0 Sie es 6,678.3 5,636.1 Dean 1,599. 
SUM( 42) 359.9 1,704.6 7,639.1 5,268.7 18, 767.8 218.2 ts 
suM 43) 53.6 170.4 1,142.2 ILE S77 2,583.2 34.1 0. 
sum( 44) 116.9 120.0 120.0 120.0 120.0 83.0 5. 
SuM( 45) o.4 0.5 0.3 _ 0.4 0.3 O: 


Wot OV 


FOUWUONO 
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TABLE M-2 


VARIABLES ESTIMATED FOR THE AVERAGE INDIVIDUAL 
IN EACH EXAMPLE GROUP 


le Gro 


= 
ne) 
Ww 
wi 
~ 


Family Status Parameters 


MARTAL 2 a 2 2 2 0 0 
IWWIFE r) ) 0) 0 0 0 0 
DEPCH 1 _ 5 5 2 a a 
ODEP rs e a eat ix ma ba 


Income Classification Indices 


INCKL (1) 6 10 14 17 16 mn 3 
INCKL (2) 6 10 13 13 15 4 2 
INCKL (3) 6 10 14 17 £7, 4 3 
Changes in the Personal Tax Base 

ete 1,000.0 1,000.0 1,000.0 1,000.0 1,000.0 1,000.0 994.2 
ae 988.1 976.2 988.9 662.5 932.1 “10 -13.6 
BASE (3) meal 56.6 414.9 43,967.3 12,076.1 SAY ¢ 54.9 
BASE(}+) 1.3 6.8 48.3 5,128.1 1,405.7 1.4 6.5 
BASE(5) 3.8 19.3 123.9 13,129.4 3,606.1 73.9 18,5 
BASE (6 _ — = 792.6 564.9 ~ S 
BASE(7 =- Oral! 68.7 — 6.1 14.2 = 
BASE(8) -0.9 =) -48.1 -30.3 -60.1 -10.5 ra 
BASE(9) = = =a pas = — 
BASE(10 3.8 335.6 153.5 1,000.0 1,000.0 16.4 262.0 
BASE(11 68.1 281.0 Gdisleteye alyyalbys>y slap ialaln 8.8 25.9 
BASE(12 36.5 150.4 397.0 918.0 824.9 4.7 13.8 
BASE (13) -68.6 -292.7 = ~89.4 =1,500.0 me ae 
BASE(1}+) -90.4 -40.7 -41.7 -97.7 -- -82.9 0.5 
BASE(15) 114.8 306.2 985.6 12h,7 1,500.0 87.9 as 
BASE(16) pel. = - we me = 
BASE(17) -32.3 -32.3 -17.4 -32.3 -32.3 A -3,8 
BASE(18) 11.6 1,613.9 6,131.4 13,873.2 16,614.1 18.4 293.8 
BASE(19) 80.6 = 442.6 403.0 161.2 bs wat 
pe a a pas = a 2 “ - 
BASE(21 aa = te a co Ze 310.5 
BASE(22) ive 4.0 5.8 288.2 205.4 0.9 see 
BASE(23) 5.1 6.7 4.8 1.8 5.3 4.6 5.8 
BASE( 2/4) 26.3 27.4 3.7 7.5 17.5 39.5 40.9 
BASE(25) 1755 60.4 87.6 4,323.0 3,081.0 13.3 ue, 
BASE(26) _ =_ — _ _ — — 
BASE(27) _ — — _ _ —_ _ 
BASE(28) = = = = = =. = 
BASE(29) 300.0 = 300.0 300.0 300.0 a ane 
BASE(30) = == 4 37.5) © 1,200.0 300.0 = ae 
BASE(31) a Bed pe es =) as 
ge a Ne: 55.6 34.3 2,253.6 795.2 set Wy. 
BASE( 33) —_ —_ — — — o ~ 
BASE(34) 0:0 ose Tales /COL Omer al loss 20.2 RY i 
BASE(35) -_ _ = - _ - _ 
Changes in Tax Credits 

CRED(1) — — 269.5 2h0.0 60.0 _ _ 
CRED(2) OV -3.8 -17.7 -2,402.3 -619.1 0) 547 -0.7 
CRED(3) a a z. aS a ee is 
cate 18.7 64.5 93.5 1,453.2 1,121.9 14.2 ae 
CRED(5) ees = a ass = ba = 
CRED(6) = os eal = = pa a 
CRED(7) 100.0 a 100.0 100.0 100.0 = ks 
ae 7.3 37.0 263.2 27,893.6 7,661.3 {Os Ba 
CRED(9) 0.7 3.4 24.1 2,559.0 702.9 Oy 3.2 
Current Personal Income Tax Base and Taxes 

OLDPTX (1) 3,024.2 9,766.7 26,297.4 25,363.7 53,326.9 2,040.7 629.0 
OLDPTXx(2) a2 43.5 17.9 2,418.3 623.6 0.7 0.2 
OLDPTX(3) 524.4 2,276.5 9,420.8 6,553.5 22,996.2 317.8 80.3 
OLDPTX (14) 15k 76.3 542.7 57,512.6 15,796.5 15,5 72.9 


(continued) 
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TABLE M-2 (continued) 


Corporate Income Tax 


CORTAX (1) 6.2 31.3 227.2 2,075.0 
CORTAX (2) nel 6.9 4y.2 4, 681.4 
CORTAX (3) 0.7 3.5 24.9 2,638.2 
CORTAX (44) ph =0.8. 2k06.6 -29,2 


Taxes on Gifts and Bequests 


GIFTAX (1) 0.5 206.7 832.2 1,660.3 
GIFTAX (2) Sony Tenby, oye  eehib we 
GIFTAX(3) £002 ACEO byt eG 9 cyleal 


Proposed Personal Income Tax Base and Taxes 


ees 5,497.8 14,298.6 39,463.4 115, 404.4 
REFTAX (2 119.2 104.2 463.3 1,809.2 
REFTAX (3) 4k, = 2,324.12 10,1224 14,117.3 
peat a 8.3 41.6 296.3 31,394.5 
REFTAX (5 8.0 4o.4 287.4 30,452.7 


Adjustments Required to Obtain the Current Tax 
Base From Reported Data 


DELTA (1) 
DELTA (2) 
DELTA (3) 
DELTA (}t) 


1) SF 
oo 
11> 
= 
[| OF 
or 


Miscellaneous Variables 


EL 

(= 
ee ee 

1 
Fo 

bs v 
B11 8e 
rw 

ie 
111s 
ao 
Ovo 
ONvI 


FOr 
Ss 
: 2 
FIOM A 
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cps 
biel Ae ee ae bt 
HN 


eI) 


ba 
“J 
a 
So dsiliva Ate © cies 
vn Wu 
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ba | 

lldtbipry se 
[o) 

Phippp Byer 


Elements of Income Not Brought Into 
Comprehensive Personal Tax Base 


plc a leah 5.4 38.7 4,105.1 
UNTAXD (2) 0.1 0.5 3.9 410.5 
UNTAXD (3) 0.6 2.9 20.7 2,189.4 
UNTAXD (4+) 0.2 0.9 6.5 684.2 
UNTAXD (5) 0.5 2.3 16.3 1,725.4 
UNTAXD (6) ne: 5.8 37.2 3,943.9 
UNTAXD (7) 0.1 On) 171.9 — 

UNTAXD (8) 0.9 1.3 48,2 302.3 
UNTAXD (9) Ont Ors. 137.5 = 

UNTAXD (10) -4,8 0.3 9.0 1,088.3 
UNTAXD (11) 1.9 16.6 7.6 350.0 
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TAX BASE AND TAXES ATTRIBUTABLE TO THE AVERAGE INDIVIDUAL 
IN EACH EXAMPLE GROUP UNDER THE CURRENT TAX SYSTEM 


Income 
1. Wages and salaries 
2. Employment expense 


deductions 
3. Professional income 
4, Commission income 
5) Attributable benefits 
6. Farming and fishing 
income 
7. Dividends 
8. Other corporate income 
9. Capital gains on shares 
O. Unincorporated business 
income 
11. Net rental income 


Sm Gop 
: 2 3 5 6 7 


-10 


12. Other Canadian investment 


income 

13. Non-business capital 
gains 

14, Foreign investment 
income 


15. Deductions from 
investment income 

16. Gifts and bequests 

17. Transfer payments 

18. Insurance proceeds 

19. Alimony received 

20. Miscellaneous income 


Deductions 


Pension contributions 
Retirement savings 
Net medical expenses 
Charitable donations 
Standard deductions 
Alimony paid 

Other deductions 
Family exemptions 


* 


. 


. 


Non-refundable tax credits 


1. Credits for dependants 
2. Dividend tax credits 
3. Other tax credits 


Taxable income 


Total income 
Less: Deductions 


Taxable income 
Tax calculation 


Personal income tax 
before tax credits 
Less: Non-refundable 

tax credits 


Less: Refundable credit for 
allocated corporate 
tax 


Personal income tax includ- 
ing old age security tax 


Corporation income tax 
Taxes on gifts and bequests 
received 


Total direct taxes 


D) 


52,034 


ON 


ne) 


: 


428 


384 


81 


80 


alt 
Income 
1. Wages and Salaries SAWS 
2. Employment expense 
deductions -204 
3. Professional income — 
4, Commission income 9 
5. Attributable benefits 115 
6. Farming and fishing income -2 
7. Dividends k 
8. Other corporate income 1g 
9. Capital gains on shares h 
10, Unincorporated business income — 
11. Net rental income -14 
12. Other Canadian investment 
income 114 
13. Non-business capital gains ab 
14. Foreign investment income -1 
15. Deductions from investment 
income 12 
16. Gifts and bequests 81 
17. Transfer payments _ 
18. Insurance proceeds — 
19. Alimony received —_ 
20. Miscellaneous income 5 
Deductions 
1. Pension contributions 134 
2. Retirement savings 19 
3. Net medical expenses 43 
4. Charitable donations 59 
5. Standard deductions be 
6. Alimony paid 4 
7. Other deductions 2 
8. Family exemptions — 
Non-refundable tax credits 
1. Credits for dependants 100 
2. Dividend tax credits _ 
3. Other tax credits 19 
Taxable income 
Total income Ses 
Less: Deductions 555 
Taxable income 5,498 
Tax calculation 
Personal income tax before 
tax credits 552 
Less: Non-refundable tax credits 119 
431 
less: Refundable credit for 
allocated corporate tax 8 
Personal income tax including 
old age security tax ok 
Corporation income tax 8 
Taxes on gifts and bequests 
received —_ 
433 


38h 


TABLE M-4 


TAX BASE AND TAXES ATTRIBUTABLE TO THE AVERAGE 


INDIVIDUAL IN EACH EXAMPLE GROUP UNDER 
THE PROPOSED TAX SYSTEM 


‘ Example Group 


2 3 4 5 6 (t 
11,218 1,461 6,235 52,034 2511 428 
Se -70 =219 pe -110 =5 
37 27,765 — = 3 3 
613 1,020 _ 364 19 a 
306 986 125 1,500 88 ) 
= -149 362 _ 59 T 
18 116 12,345 3,391 4 17 
63 463 49,085 13,482 13 61 
19 124 13,129 3,606 4 18 
=3) 1,739 = 99 358 = 
al 27 3,265 1,828 31 3 
1,246 1,517 RATS 4,976 53 685 
55 25 1,165 186 3 43 
ey) 2) 108 8 a = 
-13 -48 -1,609 -1,147 — — 
1,614 6,131 13,873 16,614 18 29h 
a 4h 403 161 1,149 
12 87 4,799 5 bs -6 21 
452 146 93 674 32 —_ 
89 1,248 329 165 5D aS 
-2 a -288 -202 5 4 
141 el Tod 559 6 -9 
y) 9 al 4S 50 
ioe — a = As, = 
1 10 480 3he a = 
ce 370 340 160 = = 
104 94 1,469 1,126 14 _ 
14,918 41, 642 116,772 99,016 5, ole 2,725 
620 2,178 1,367 1,561 164 yy 
14,299 39,463 115,404 97,455 3,148 2,681 
2,459 10,873 46,379 37,430 335 251 
104 64 1,809 1,286 14 ~~ 
2,356 10,418 45,512 26,402 320 252 
he 296 31,395 8,623 8 40 
2,314 10,122 14,117 27,779 312 212 
he 296 31,395 8,623 8 ho 
2,356 10,419 45,512 36,402 321 252 
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TABLE M- 


PRORATED ESTIMATES OF THE CHANGES IN DIRECT TAXES RESULTING FROM THE 
PROPOSED REFORMS FOR THE AVERAGE INDIVIDUAL IN EACH EXAMPLE GROUP 


Reform Category 1 - Changes in tax rates 


Reform (1,1) 
Reform (1,2) 
Reform (1,3) 
Reform (1,4) 


Total in class 


Example Grou 
1 2 3 y 5 6 7 
-15 -150 -1,824 -1,702 -5,001 “5 -2 
-51 -319 -938 -1,033 -1,028 -2 -2 
-43 <= 5 2 Be =3 a 
_ = 202 180 72 - - 
-109 - 410 =2,554 -2,551 -5,925 -8 -4 


Reform category 2 - Taxation of the family as a unit 


Reform (2,1) 
Reform (2,2) 
Reform (2,3) 


24 


Reform (2,}) -114 -458 -913 --1,2h0 0-1 -17 
Total in class - -114 -458 -913 -1,2h0 -1 -17 
Reform category 3 - Changes in taxation of corporate service income 

Reform (3,1) <5 -13 - 4h - 760 -%3 3 -20 
Reform (3,2) _ +2 19 2,413 683 - it 
Reform aT al + 5 47 5,987 1,697 1 3 
Reform (3, ~ _ _ 361 266 _ = 
Reform (3,5 = cas -3 -359 -l0o2 = - 
Total in class -2 -7 20 7,642 2,471 -2 -16 
Reform category = Changes _in taxation of other property income 

Reform (4,1) -11 -31 -107 -29 -65 -3 oe 
Reform (4,2) - oS 26 = D 5) = 
Reform (4,3) _ _ eS) “1h -28 -2 _ 
Reform (4,4 - — _ — = = = 
Reform ies il 80 58 456 471 3 4a 
Reform (4,6) 13 67 282 782 725 2 4 
Reform (4,7) "6 36 151 419 388 1 2 
Reform (4,8) ell 13 13 1,028 374 3 7 
Total in class 8 165 4O5 2,642 1,868 76 56 
Reform category 5 - Changes in taxation of employment income 

Reform (5,1) -13 -70 = -41 -706 a ~ 
Reform (5,2) -17 -10 -16 -45 ~ -17 - 
Reform (5,3) 22 73 374 EY 706 18 ~ 
Reform (5,) ~ - _ _ _~ ~~ am 
Reform (5,5) -6 -38 -7 -15 -15 -5 =i 
Total in class -15 -14 352 -43 -15 <4 -1 
Reform category 6 - Other aspects of the comprehensive base 

Reform (6,1) 2 291 1,954 5,579 6,804. 3 3h 
Reform (6,2) 15 = 16 184 76 _ -_ 
Total in class 17 291 eenlee 5,763 6,880 3 5h 
Reform category 7 - Changes in concessionary allowances 

Reform (7,1) _— —_ — —_ = oe 51 
Reform (7,2) ~ wl 2 algal 97 - _ 
Reform $795) a 2 2 iL 2 1 al 
Reform (7,4 5 a; il 3 8 8 " 
Reform (7,5) -15 -50 -60 518 328 -12 — 
Reform (7,6) _ _ — = = = = 
Total in class -9 -41 -55 654 435 =3 58 
Undistributed amounts — — = — ag = a 
TOTAL CHANGES -110 -190 -168 13,194 4475 -8 110 
Current total 531 2,514 10,480 32,289 31,863 326 12 
New total Weak Oo oe5 10,312 45,483 36,338 318 252 
Percentage change -20.7 -7.5 -1.6 40.9 14.0 -2.5 va eae) 
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TABLE M6 


SAMPLE INPUT DATA SET 


$DATA 
1 1 0 1 3 
1 C 0 0 1 2 1 1 
0 0 e 3 0 C 
1 C 1 C 0 0 0 3 
Te) A Rae a 1 1 
CASE XI-64 
1 1 O.7 
1 2 1$62CC000 
1 3 1800000C0 
1 4 804000000 
1 5 7700000C. 
1 6 450700000 
1 q 1.45 
1 € 0.33 
1 9 1.0 
1 10 0.04 
1 ll 0.15 
1 12 2°05 
1 123 4. 
a 14 0.70 
i ES 0.2 
1 16 0.05 
1 17 0.3 
1 18 0.6 
1 1S 0.04 
1 20 4000 
1 21 1500 
1 22 C.3 
1 23 1 
1 24 0.2 
l 25 0.01 
l 26 500C 
1 27 3000 
1 2e 60 
1 2s 45. 
1 3C 0.C6 
1 31 10000 
1 32 0.05 
1 Zhe 0.C2 
l 34 3C0 
1 35 0.143 
1 3€ 0.55 
1 37 10C0 
1 38 0.95 
1 39 0.43 
1 4C 80.6 
1 41 120. 
1 42 2621 


TABLE M6 (continued) 


hp ped ek apes beat ae fs pet kad ed aa eas pees: gee es mete Bat pt fe Peete a a Bat teas aes ee eee 


2 1246 
-0851 
200. 

0.10 
60000CC0 
155400000 
25000 
150C. 


1199000000 
502000000 
2610000CC 
597CC00C0U 
108co000c0 

99000000 
0-40 
297C0000. 
0.3 

0-1C 
10000. 
0.05 

500. 

0.97 

0.40 
140CC00000. 
1500000C. 
ecocoocd. 
55c0c0000. 
0.68966 
0.50 

O-l 

2.0 
1500000C. 
0.5 
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CASE 2 


MM NM M AM POA A fO PO 


OMAN AWMW DWN YO 


dey Si fae 
79418C. 
184760. 
86E0. 
PAS 82205 
559385. 
1 27 
123. 


3630. 
14410. 


19 

60 0 
12 0 
15 0 
17 13 
20 »«16 
22-46 
23. 19 
24 +20 
26 21 
28 8©22 
30 24 
3237 
35.31 
3735 
ago 30 
42 42 
44 44 
46 46 
49 49 
50 50 
2 3 

ay cee 
20867. 
854E8C. 
5S641C9C. 
115450. 
7080; 
4ECC. 
T22cida: 
ee ae 
2456 
59C. 
1392120. 
1890. 
469.6 
1240. 
14760. 

1 @ 13 
122. 
1190. 
8S100. 
1266650. 
1078. 
67460. 
7320. 

L 1613 
LOS 

Os 
37410. 
0. 
14414. 


1C0 
0.03 
500 
80 
120 

00 6 
0.25 
300. 
1.0 
0.0 

80 40 
0 
Cc 
3 
16 
18 
19 
20 
21 
22 
24 
27 
31 
35 
38 
42 
44 
46 
49 
50 

4 5 

OQ. 

458150. 

8940. 

C. 

5520. 

36800. 

3779. 

O. 

220. 

BL TAG) 

QO. 

4882. 

0. 

67. 

0. 

260. 

104840. 

O. 

16. 

QO. 

20. 

C. 

QO. 

O. 

Oo 
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TABLE M-6 (continued) 


120 1000 2100 2100 


203330. 
408. 


3356 
36 
1693680. 


1 


On 
130230. 
89960. 

0. 

O-~ 
59877800. 
0. 


0. 


0. 


ALLOWANCES 


23997200. 
1210. 
-17520. 
57300. 
157390. 
27624450. 
0~ 


245000. 


BLANK CARD ENOS SUBSET 
RATE SCHEDULE 


BLANK CARD ENDS SUBSET 
PRORATION PARAMETERS 


6102. 
3860. 
-100480. 
0. 

0. 
3755581. 


67400. 
674550. 
480. 
102240. 
109740. 


1500. 
720. 


1 5 7 


355 

1050. 
936620. 
17750. 
11143. 
1560. 
2160. 

1 1 1 
60. 
2699C~. 
8918470. 
13692170. 
2275. 

80. 


0. 


389 


28820. 
be 


8680. 
12030. 
0. 
47500. 
149. 


0. 

20. 
4520. 
30540. 
1401000. 
0. 

68. 


TABLE M-6 (continued) 


192700. 
O- 


0. 


0. 


0. 


O. 


0. 


40070. 
0. 


45800. 


3214000. 
20. 
190550. 
75250.2 
15000. 
3788460. 
0. 


2592500. 


2774640. 
0. 


STOP CARD 
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